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
Pipeline #3185 passed with stage
    in 92 minutes and 31 seconds
    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