[FEAT] Bulding phylo with graphviz
[gargantext.git] / src / Gargantext / Core / Viz / Phylo / Legacy / LegacyMain.hs
index d4b03c03d4cf3805b3e4a2741cf954c0a9a1bbd0..b0132a12556fb61d4f9eff85c2facc9ab6d5a27d 100644 (file)
@@ -28,13 +28,13 @@ import Gargantext.Core.Text.Context (TermList)
 import Gargantext.Core.Text.Terms.WithList
 import Gargantext.Database.Query.Table.Node(defaultList)
 import Gargantext.Prelude
-import Gargantext.Database.Action.Flow
+import Gargantext.Database.Action.Flow.Types
 import Gargantext.Core.Viz.LegacyPhylo hiding (Svg, Dot)
 import Gargantext.Database.Admin.Types.Hyperdata
 import Gargantext.Database.Schema.Ngrams (NgramsType(..))
-import Gargantext.Database.Query.Table.NodeNode (selectDocs)
+import Gargantext.Database.Query.Table.NodeContext (selectDocs)
 import Gargantext.Core.Types
-
+import Gargantext.Core (HasDBid)
 
 -- import Gargantext.Core.Viz.Phylo.LevelMaker (toPhylo)
 -- import Gargantext.Core.Viz.Phylo.Tools
@@ -46,7 +46,7 @@ import qualified Data.Text           as Text
 
 type MinSizeBranch = Int
 
-flowPhylo :: FlowCmdM env err m
+flowPhylo :: (FlowCmdM env err m, HasDBid NodeType)
           => CorpusId
           -> m Phylo
 flowPhylo cId = do
@@ -65,14 +65,6 @@ flowPhylo cId = do
     -- | To filter the Ngrams of a document based on the termList
     filterTerms :: Patterns -> (Date, Text) -> (Date, [Text])
     filterTerms patterns' (y,d) = (y,termsInText patterns' d)
-      where
-        --------------------------------------
-        termsInText :: Patterns -> Text -> [Text]
-        termsInText pats txt = List.nub
-                             $ List.concat
-                             $ map (map Text.unwords)
-                             $ extractTermsWithList pats txt
-        --------------------------------------
 
     docs = map ((\(y,t) -> Document y t) . filterTerms patterns) docs'