[PHYLO] cLouvain in IO Monad fix.

src/Gargantext/Viz/Phylo.hs

@@ -131,7 +131,7 @@ data PhyloGroup =
                 , _phylo_groupLevelParents  :: [Pointer]
                 , _phylo_groupLevelChilds   :: [Pointer]
                 }
-                deriving (Generic, Show, Eq)
+                deriving (Generic, Show, Eq, Ord)
 
 data PhyloBranch =
      PhyloBranch { _phylo_branchId     :: (Level,Int)

src/Gargantext/Viz/Phylo/Aggregates/Cluster.hs

@@ -37,7 +37,7 @@ import qualified Data.Set    as Set
 -- | To apply a Clustering method to a PhyloGraph
 graphToClusters :: (Clustering,[Double]) -> PhyloGraph -> [[PhyloGroup]]
 graphToClusters (clust,param) (nodes,edges) = case clust of 
-  Louvain           -> louvain (nodes,edges)
+  Louvain           -> undefined -- louvain (nodes,edges)
   RelatedComponents -> relatedComp 0 (head nodes) (tail nodes,edges) [] []   
 
 
@@ -49,4 +49,4 @@ phyloToClusters lvl (prox,param) (clus,param') p = Map.fromList
                                                                      in if null (fst graph) 
                                                                         then []
                                                                         else graphToClusters (clus,param') graph) 
-                                                       (getPhyloPeriods p))
+                                                       (getPhyloPeriods p))
\ No newline at end of file

src/Gargantext/Viz/Phylo/Metrics/Clustering.hs

@@ -59,19 +59,20 @@ relatedComp idx curr (nodes,edges) next memo
     --------------------------------------
 
 
+{-
 louvain :: (PhyloNodes,PhyloEdges) -> [Cluster]
 louvain (nodes,edges) = undefined 
+-} 
 
--- louvain :: (PhyloNodes,PhyloEdges) -> [Cluster]
--- louvain (nodes,edges) = map (\community -> map (\node -> nodes !! (l_node_id node)) community)
---                       $ groupBy (l_community_id)
---                       $ cLouvain 
---                       $ mapKeys (\(x,y) -> (idx x, idx y)) 
---                       $ fromList edges
---   where
---     -------------------------------------- 
---     idx :: PhyloGroup -> Int
---     idx e = case elemIndex e nodes of
---       Nothing -> panic "[ERR][Gargantext.Viz.Phylo.Metrics.Clustering] a node is missing"
---       Just i  -> i
---     --------------------------------------  
+
+louvain :: (PhyloNodes,PhyloEdges) -> IO [[PhyloGroup]]
+louvain (nodes,edges) = map (\community -> map (\node -> nodes !! (l_node_id node)) community)
+                      <$> groupBy (\a b -> (l_community_id a) == (l_community_id b))
+                      <$> (cLouvain $ mapKeys (\(x,y) -> (idx x, idx y)) $ fromList edges)
+  where
+    -------------------------------------- 
+    idx :: PhyloGroup -> Int
+    idx e = case elemIndex e nodes of
+      Nothing -> panic "[ERR][Gargantext.Viz.Phylo.Metrics.Clustering] a node is missing"
+      Just i  -> i
+    --------------------------------------  
\ No newline at end of file