Work with updated IGraph library

gargantext-graph-core/src/Graph/IGraph.hs

@@ -55,9 +55,8 @@ type Seed = Int
 -- | Tools to analyze graphs
 clusteringWith_spinGlass :: (Serialize v, Serialize e)
                          => Seed -> IG.Graph 'U v e -> IO [[Int]]
-clusteringWith_spinGlass s g = do
-  gen <- IG.withSeed s pure
-  IG.findCommunity g Nothing Nothing IG.spinglass gen
+clusteringWith_spinGlass seed graph = IG.withSeed seed $ \gen -> do
+  IG.findCommunity graph Nothing Nothing IG.spinglass gen
 
 
 maximalCliques :: IG.Graph d v e -> [[Int]]