seemingly fixed 'computeConfluences'

src/Gargantext/Core/Viz/Graph/Tools.hs

@@ -132,7 +132,10 @@ cooc2graphWith' doPartitions distance threshold strength myCooc = do
         (as, bs) = List.unzip $ Map.keys distanceMap
         n' = Set.size $ Set.fromList $ as <> bs
     bridgeness' = bridgeness (fromIntegral nodesApprox) partitions distanceMap
-    confluence' = BAC.computeConfluences 3 (Map.keys bridgeness') True
+    -- indices of bridgeness seem to start at 1, while computeConfluences
+    -- expects 0-based indexing.
+    ks = map (\(a, b) -> (a-1, b-1)) (Map.keys bridgeness')
+    confluence' = Map.mapKeys (\(a, b) -> (a+1, b+1)) $ BAC.computeConfluences 3 ks True
                -- confluence (Map.keys bridgeness') 3 True False
   seq bridgeness' $ printDebug "bridgeness OK" ()
   seq confluence' $ printDebug "confluence OK" ()

stack.yaml

@@ -35,7 +35,7 @@ extra-deps:
 - git: https://gitlab.iscpif.fr/gargantext/haskell-gargantext-prelude.git
   commit: 08096a4913572cf22762fa77613340207ec6d9fd
 - git: https://gitlab.iscpif.fr/gargantext/gargantext-graph.git
-  commit: f41ee8b53c3264e5aa5adc06b2e5b293d2a8c474
+  commit: 642b9ec7ffa59a5db7b2ec7b24436e07309dc097
   # Data Mining Libs
 - git: https://github.com/delanoe/data-time-segment.git
   commit: 10a416b9f6c443866b36479c3441ebb3bcdeb7ef