[WIP]

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

@@ -21,7 +21,7 @@ module Gargantext.Core.Viz.Graph.Bridgeness -- (bridgeness)
 
 import Data.List (concat, sortOn)
 import Data.Map (Map, fromListWith, lookup, toList, mapWithKey, elems)
-import Data.Maybe (catMaybes, fromMaybe)
+import Data.Maybe (catMaybes{-, fromMaybe-})
 import Data.Set (Set)
 import Gargantext.Prelude
 import Graph.Types (ClusterNode(..))
@@ -72,7 +72,9 @@ bridgeness2 c m = Map.fromList
                   )
             $ List.take n
             $ List.sortOn (Down . snd)
-            $ Map.toList c
+            $ catMaybes
+            $ map (\ks -> (,) <$> Just ks <*> Map.lookup ks c)
+            $ Map.keys m
 
     !m' = Map.toList m
     n :: Int