Skip to content

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

[FIX] quick fix for Graph conf bug and compilation bug

parent 4cb7a426
Hide whitespace changes
Inline Side-by-side
Showing with 2 additions and 2 deletions
gargantext.cabal
View file @ 3296fd4c
...@@ -96,7 +96,7 @@ library ...@@ -96,7 +96,7 @@ library
Gargantext.Core.Viz.Phylo.SynchronicClustering Gargantext.Core.Viz.Phylo.SynchronicClustering
Gargantext.Core.Viz.Types Gargantext.Core.Viz.Types
other-modules: other-modules:
ConcurrentTest -- ConcurrentTest
Gargantext.API.Admin.Auth Gargantext.API.Admin.Auth
Gargantext.API.Admin.FrontEnd Gargantext.API.Admin.FrontEnd
Gargantext.API.Admin.Orchestrator Gargantext.API.Admin.Orchestrator
......
src/Gargantext/Core/Viz/Graph/Tools.hs
View file @ 3296fd4c
...@@ -132,7 +132,7 @@ cooc2graphWith' doPartitions distance threshold strength myCooc = do ...@@ -132,7 +132,7 @@ cooc2graphWith' doPartitions distance threshold strength myCooc = do
(as, bs) = List.unzip $ Map.keys distanceMap (as, bs) = List.unzip $ Map.keys distanceMap
n' = Set.size $ Set.fromList $ as <> bs n' = Set.size $ Set.fromList $ as <> bs
bridgeness' = bridgeness (fromIntegral nodesApprox) partitions distanceMap bridgeness' = bridgeness (fromIntegral nodesApprox) partitions distanceMap
confluence' = BAC.computeConfluences 3 (Map.keys bridgeness') True confluence' = Map.empty -- BAC.computeConfluences 3 (Map.keys bridgeness') True
-- confluence (Map.keys bridgeness') 3 True False -- confluence (Map.keys bridgeness') 3 True False
seq bridgeness' $ printDebug "bridgeness OK" () seq bridgeness' $ printDebug "bridgeness OK" ()
seq confluence' $ printDebug "confluence OK" () seq confluence' $ printDebug "confluence OK" ()
......
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