[Phylo] strict

8113d268 · Alexandre Delanoë · 063e67d0 · 8113d268 · 8113d268 · 8113d268
Commit 8113d268 authored Oct 21, 2020 by Alexandre Delanoë
Showing with 101 additions and 101 deletions

Phylo.hs src/Gargantext/Core/Viz/Phylo.hs +93 -93

LevelMaker.hs src/Gargantext/Core/Viz/Phylo/LevelMaker.hs +4 -4

PhyloMaker.hs src/Gargantext/Core/Viz/Phylo/PhyloMaker.hs +4 -4

No files found.
--- a/src/Gargantext/Core/Viz/Phylo.hs
+++ b/src/Gargantext/Core/Viz/Phylo.hs
--- a/src/Gargantext/Core/Viz/Phylo/LevelMaker.hs
+++ b/src/Gargantext/Core/Viz/Phylo/LevelMaker.hs
--- a/src/Gargantext/Core/Viz/Phylo/PhyloMaker.hs
+++ b/src/Gargantext/Core/Viz/Phylo/PhyloMaker.hs
@@ -232,7 +232,7 @@ docsToTimeScaleCooc docs fdt =
 -----------------------
 -- | to Phylo Base | --
 -----------------------
-
+-- TODO anoe
 groupDocsByPeriodRec :: (NFData doc, Ord date, Enum date) => (doc -> date) -> [(date,date)] -> [doc] -> Map (date, date) [doc] -> Map (date, date) [doc]
 groupDocsByPeriodRec f prds docs acc =
    if ((null prds) || (null docs))