[FIX] TFICF condition (better implemented definition)
[gargantext.git] / src / Gargantext / Viz / Phylo / Main.hs
index 7c594d0a0e0b5a435163567dd7401ecf4f1fb4a5..4b82b8681d46b35960b3553cbd214434dace5e20 100644 (file)
@@ -9,10 +9,6 @@ Portability : POSIX
 
 -}
 
-{-# LANGUAGE FlexibleContexts  #-}
-{-# LANGUAGE NoImplicitPrelude #-}
-{-# LANGUAGE OverloadedStrings #-}
-{-# LANGUAGE RankNTypes        #-}
 {-# LANGUAGE ViewPatterns      #-}
 
 module Gargantext.Viz.Phylo.Main
@@ -53,11 +49,11 @@ flowPhylo :: FlowCmdM env err m
 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