Skip to content

haskell-gargantext
haskell-gargantext
Commit 63357a3a authored by Alexandre Delanoë's avatar Alexandre Delanoë
Browse files
Options

[FIX] Order 1 edges filter

parent 303c8212
Pipeline #3021 failed with stage
    in 53 minutes and 35 seconds
    Show whitespace changes
    Inline Side-by-side
    Showing with 1 addition and 0 deletions
    src/Gargantext/Core/Viz/Graph/Tools.hs
    View file @ 63357a3a
    ...@@ -175,6 +175,7 @@ doDistanceMap Conditional threshold myCooc = (distanceMap, toIndex ti myCooc', t ...@@ -175,6 +175,7 @@ doDistanceMap Conditional threshold myCooc = (distanceMap, toIndex ti myCooc', t
    distanceMap = toIndex ti distanceMap = toIndex ti
    $ Map.fromList $ Map.fromList
    $ List.take links $ List.take links
    $ List.reverse
    $ List.sortOn snd $ List.sortOn snd
    $ HashMap.toList $ HashMap.toList
    $ HashMap.filter (> threshold) $ HashMap.filter (> threshold)
    ......
    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