-}
-{-# LANGUAGE FlexibleContexts #-}
-{-# LANGUAGE NoImplicitPrelude #-}
-{-# LANGUAGE OverloadedStrings #-}
-{-# LANGUAGE RankNTypes #-}
{-# LANGUAGE ViewPatterns #-}
module Gargantext.Viz.Phylo.Main
flowPhylo cId = do
list <- defaultList cId
- termList <- Map.toList <$> getTermsWith Text.words [list] NgramsTerms GraphTerm
+ termList <- Map.toList <$> getTermsWith Text.words [list] NgramsTerms MapTerm
docs' <- catMaybes
- <$> map (\h -> (,) <$> _hyperdataDocument_publication_year h
- <*> _hyperdataDocument_abstract h
+ <$> map (\h -> (,) <$> _hd_publication_year h
+ <*> _hd_abstract h
)
<$> selectDocs cId