cosmetics

src/Gargantext/TextFlow.hs

@@ -56,6 +56,9 @@ import Data.Graph.Clustering.Louvain.CplusPlus (cLouvain, LouvainNode(..))
 
 -}
 
+printDebug msg x = putStrLn $ msg <> " " <> show x
+--printDebug _ _ = pure ()
+
 data TextFlow = CSV | FullText
 
 -- workflow :: Lang (EN|FR) -> FilePath -> Graph
@@ -145,7 +148,3 @@ data2graph labels coocs distance partitions = Graph nodes edges
             | (i, ((s,t), w)) <- zip [0..] (M.toList distance) ]
 -----------------------------------------------------------
 
-printDebug msg x = putStrLn $ msg <> " " <> show x
---printDebug _ _ = pure ()
-
-

src/Gargantext/Viz/Graph.hs

@@ -111,6 +111,7 @@ graphOld2graph (GraphOld links nodes) = Graph (map nodeOld2node nodes) (zipWith
 
 graphOld2graphWithFiles :: FilePath -> FilePath -> IO ()
 graphOld2graphWithFiles g1 g2 = do
+  -- GraphOld <- IO Fichier
   graph <- DBL.readFile g1
   let newGraph = case DA.decode graph :: Maybe GraphOld of
         Nothing -> panic (T.pack "no graph")