[REBASE] Dev <-> dev-phylo

src/Gargantext/Core/Viz/Phylo/API.hs

@@ -76,7 +76,7 @@ phylo2dot2json phylo = do
   _ <- Shell.callProcess "/usr/bin/dot" ["-Txdot_json", "-o", file_to_json, file_dot]
 
   maybeValue <- decodeFileStrict file_to_json
-  
+
   _ <- Shell.callProcess "/bin/rm" ["-rf", file_from, file_to_json, file_dot]
 
   case maybeValue of

src/Gargantext/Core/Viz/Phylo/Legacy/LegacyAPI.hs

@@ -37,6 +37,8 @@ import Gargantext.Database.Query.Table.Node (insertNodes, node)
 import Gargantext.Prelude
 import Gargantext.Core.Viz.LegacyPhylo
 import Gargantext.Core.Viz.Phylo.Legacy.LegacyMain
+import Gargantext.Core.Viz.Phylo.API
+import Gargantext.Core.Viz.Phylo (defaultConfig)
 -- import Gargantext.Core.Viz.Phylo.Example
 import Gargantext.Core.Types (TODO(..))
 import Data.Either
@@ -126,7 +128,7 @@ postPhylo corpusId userId _lId = do
     -- _vrs = Just ("1" :: Text)
     -- _sft = Just (Software "Gargantext" "4")
     -- _prm = initPhyloParam vrs sft (Just q)
-  phy <- flowPhylo corpusId -- params
+  phy <- flowPhyloAPI defaultConfig corpusId -- params
   phyloId <- insertNodes [node NodePhylo "Phylo" (HyperdataPhylo Nothing (Just phy)) (Just corpusId) userId]
   pure $ NodeId (fromIntegral phyloId)
 

src/Gargantext/Database/Admin/Types/Hyperdata/Phylo.hs

@@ -23,7 +23,7 @@ module Gargantext.Database.Admin.Types.Hyperdata.Phylo
 
 import Gargantext.Prelude
 import Gargantext.Database.Admin.Types.Hyperdata.Prelude
-import Gargantext.Core.Viz.LegacyPhylo (Phylo(..))
+import Gargantext.Core.Viz.Phylo (Phylo(..))
 
 ------------------------------------------------------------------------