[FEAT] Phylo Backend Connected (for tests)

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

@@ -98,14 +98,12 @@ getPhylo phyloId _lId _level _minSizeBranch = do
 
 getPhyloDataJson :: PhyloId -> GargNoServer Value
 getPhyloDataJson phyloId = do
-  maybePhyloData <- getPhyloData phyloId
-  let phyloData = fromMaybe phyloExample maybePhyloData
+  phyloData <- fromMaybe phyloExample <$> getPhyloData phyloId
   phyloJson <- liftBase $ phylo2dot2json phyloData
   pure phyloJson
 
 
-
--- getPhylo phId _lId l msb  = do
+-- getPhyloDataSVG phId _lId l msb  = do
   -- let
   --   level = fromMaybe 2 l
   --   branc = fromMaybe 2 msb

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

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