Skip to content

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

[FIX] doc

parent 3a1050bc
Pipeline #1509 passed with stage
    in 17 minutes and 32 seconds
    Hide whitespace changes
    Inline Side-by-side
    Showing with 4 additions and 5 deletions
    src/Gargantext/Core/Viz/Graph/Tools.hs
    View file @ dcf2a86b
    ...@@ -160,15 +160,14 @@ cooc2graphWith' doPartitions distance threshold myCooc = do ...@@ -160,15 +160,14 @@ cooc2graphWith' doPartitions distance threshold myCooc = do
    n' = Set.size $ Set.fromList $ as <> bs n' = Set.size $ Set.fromList $ as <> bs
    ClustersParams rivers _level = clustersParams nodesApprox ClustersParams rivers _level = clustersParams nodesApprox
    {- | Debug {- -- Debug
    saveAsFileDebug "debug/distanceMap" distanceMap saveAsFileDebug "debug/distanceMap" distanceMap
    printDebug "similarities" similarities printDebug "similarities" similarities
    -} -}
    -- partitions <- if (Map.size distanceMap > 0) partitions <- if (Map.size distanceMap > 0)
    -- then doPartitions distanceMap then doPartitions distanceMap
    -- else panic "Text.Flow: DistanceMap is empty" else panic "Text.Flow: DistanceMap is empty"
    partitions <- doPartitions distanceMap
    let let
    -- bridgeness' = distanceMap -- bridgeness' = distanceMap
    ......
    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