[DEBUG] Phylo print debug

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

@@ -95,7 +95,6 @@ flowPhyloAPI config cId = do
 corpusIdtoDocuments :: TimeUnit -> CorpusId -> GargNoServer (TermList, [Document])
 corpusIdtoDocuments timeUnit corpusId = do
   docs <- selectDocNodes corpusId
-
   lId  <- defaultList corpusId
   repo <- getRepo' [lId]
 
@@ -104,15 +103,16 @@ corpusIdtoDocuments timeUnit corpusId = do
 
   termList <- getTermList lId MapTerm NgramsTerms
 
-  case termList of
-    Nothing        -> panic "[G.C.V.Phylo.API] no termList found"
-    Just termList' -> pure (termList', docs')
-      where
-        docs' = catMaybes
+  let docs'= catMaybes
            $ List.map (\doc
                         -> context2phyloDocument timeUnit doc (ngs_terms, ngs_sources)
                       ) docs
 
+  printDebug "corpusIdtoDocuments" (Prelude.map date docs')
+
+  case termList of
+    Nothing        -> panic "[G.C.V.Phylo.API] no termList found"
+    Just termList' -> pure (termList', docs')
 
 context2phyloDocument :: TimeUnit
                       -> Context HyperdataDocument

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

@@ -8,10 +8,8 @@ Stability   : experimental
 Portability : POSIX
 -}
 
-
 module Gargantext.Core.Viz.Phylo.PhyloMaker where
 
-
 import Control.DeepSeq (NFData)
 import Control.Lens hiding (Level)
 import Control.Parallel.Strategies (parList, rdeepseq, using)

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

@@ -140,6 +140,7 @@ periodsToYears periods = (Set.fromList . sort . concat)
 
 
 findBounds :: [Date] -> (Date,Date)
+findBounds [] = panic "[G.C.V.P.PhyloTools] nod Dates for find bounds"
 findBounds dates =
     let dates' = sort dates
     in  (head' "findBounds" dates', last' "findBounds" dates')