[API] PostNodeAsync funs, before refactoring
[gargantext.git] / src / Gargantext / Viz / Phylo / Main.hs
index 134277d0aa1c28ed40542137ba1cda45a177c341..9551daa9424bd7579d539aeafe774447691421c8 100644 (file)
@@ -26,10 +26,10 @@ import Debug.Trace (trace)
 import GHC.IO (FilePath)
 import Gargantext.API.Ngrams.Tools (getTermsWith)
 import Gargantext.Core.Types
-import Gargantext.Database.Flow
+import Gargantext.Database.Action.Flow
 import Gargantext.Database.Schema.Ngrams (NgramsType(..))
-import Gargantext.Database.Schema.Node (defaultList)
-import Gargantext.Database.Schema.NodeNode (selectDocs)
+import Gargantext.Database.Query.Table.Node(defaultList)
+import Gargantext.Database.Query.Table.NodeNode (selectDocs)
 import Gargantext.Prelude
 import Gargantext.Text.Context (TermList)
 import Gargantext.Text.Terms.WithList
@@ -72,7 +72,7 @@ flowPhylo cId = do
 
     docs = map ( (\(y,t) -> Document y t) . filterTerms patterns) docs'
 
-  --liftIO $ flowPhylo' (List.sortOn date docs) termList l m fp
+  --liftBase $ flowPhylo' (List.sortOn date docs) termList l m fp
   pure $ buildPhylo (List.sortOn date docs) termList