[REFACT] HasDBid
[gargantext.git] / src / Gargantext / Core / Viz / Phylo / TemporalMatching.hs
index a181b697236a5ad2d720c9f7ac0fbc423cf704e2..3174cffa483863cdff6351f01011bcac372b4e02 100644 (file)
@@ -343,7 +343,7 @@ toPhyloQuality beta freq branches =
 
 groupsToBranches' :: Map PhyloGroupId PhyloGroup -> [[PhyloGroup]]
 groupsToBranches' groups =
-    -- | run the related component algorithm
+    {- run the related component algorithm -}
     let egos = groupBy (\gs gs' -> (fst $ fst $ head' "egos" gs) == (fst $ fst $ head' "egos" gs'))
              $ sortOn  (\gs -> fst $ fst $ head' "egos" gs)
              $ map (\group -> [getGroupId group]