Skip to content

H
haskell-gargantext
Commit 8113d268 authored by Alexandre Delanoë's avatar Alexandre Delanoë
Browse files
Options

[Phylo] strict

parent 063e67d0
Expand all Show whitespace changes
Inline Side-by-side
Showing with 101 additions and 101 deletions
src/Gargantext/Core/Viz/Phylo.hs
View file @ 8113d268
This diff is collapsed.
src/Gargantext/Core/Viz/Phylo/PhyloMaker.hs
View file @ 8113d268
...@@ -232,7 +232,7 @@ docsToTimeScaleCooc docs fdt = ...@@ -232,7 +232,7 @@ docsToTimeScaleCooc docs fdt =
----------------------- -----------------------
-- | to Phylo Base | -- -- | 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 :: (NFData doc, Ord date, Enum date) => (doc -> date) -> [(date,date)] -> [doc] -> Map (date, date) [doc] -> Map (date, date) [doc]
groupDocsByPeriodRec f prds docs acc = groupDocsByPeriodRec f prds docs acc =
if ((null prds) || (null docs)) if ((null prds) || (null docs))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment