Skip to content

haskell-gargantext
haskell-gargantext
Commit 1bc8d249 authored by Alexandre Delanoë's avatar Alexandre Delanoë
Browse files
Options

code review/design

parent 01ad91a8
Show whitespace changes
Inline Side-by-side
Showing with 27 additions and 27 deletions
src/Gargantext/Core/Viz/Phylo/TemporalMatching.hs
View file @ 1bc8d249
...@@ -205,7 +205,7 @@ phyloGroupMatching candidates fil proxi docs diagos thr oldPointers (id,ngrams) ...@@ -205,7 +205,7 @@ phyloGroupMatching candidates fil proxi docs diagos thr oldPointers (id,ngrams)
where where
nextPointers :: [[(Pointer,[Int])]] nextPointers :: [[(Pointer,[Int])]]
nextPointers = take 1 nextPointers = take 1
$ dropWhile (null) $ dropWhile null
{- for each time frame, process the proximity on relevant pairs of targeted groups -} {- for each time frame, process the proximity on relevant pairs of targeted groups -}
$ scanl (\acc groups -> $ scanl (\acc groups ->
let periods = nub $ map (fst . fst . fst) $ concat groups let periods = nub $ map (fst . fst . fst) $ concat groups
......
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