[FIX] bug invitation
[gargantext.git] / src / Gargantext / Core / Viz / Phylo / TemporalMatching.hs
index 70dcfa319a48381f0cead2e08f89059134bfd320..3174cffa483863cdff6351f01011bcac372b4e02 100644 (file)
@@ -341,9 +341,9 @@ toPhyloQuality beta freq branches =
 ------------------------------------
 
 
-groupsToBranches :: Map PhyloGroupId PhyloGroup -> [[PhyloGroup]]
-groupsToBranches groups =
-    --  run the related component algorithm
+groupsToBranches' :: Map PhyloGroupId PhyloGroup -> [[PhyloGroup]]
+groupsToBranches' groups =
+    {- 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] 
@@ -409,7 +409,7 @@ breakBranches proximity beta frequency minBranch thr depth elevation frame docs
     --------------------------------------
     ego' :: ([[PhyloGroup]],[[PhyloGroup]])
     ego' = 
-      let branches  = groupsToBranches $ fromList $ map (\g -> (getGroupId g, g))
+      let branches  = groupsToBranches' $ fromList $ map (\g -> (getGroupId g, g))
                     $ matchGroupsToGroups frame periods proximity thr docs coocs (fst ego)
           branches' = branches `using` parList rdeepseq
        in partition (\b -> (length $ nub $ map _phylo_groupPeriod b) >= minBranch) 
@@ -466,7 +466,7 @@ constanteTemporalMatching start step phylo = updatePhyloGroups 1
     --  here we suppose that all the groups of level 1 are part of the same big branch
     groups :: [([PhyloGroup],Bool)]
     groups = map (\b -> (b,(length $ nub $ map _phylo_groupPeriod b) >= (_qua_minBranch $ phyloQuality $ getConfig phylo))) 
-           $ groupsToBranches $ fromList $ map (\g -> (getGroupId g, g))
+           $ groupsToBranches' $ fromList $ map (\g -> (getGroupId g, g))
            $ matchGroupsToGroups (getTimeFrame $ timeUnit $ getConfig phylo) 
                          (getPeriodIds phylo) (phyloProximity $ getConfig phylo) 
                          start 
@@ -565,7 +565,7 @@ adaptativeBreakBranches proxiConf depth elevation groupsProxi beta frequency min
     --------------------------------------
     ego' :: ([[PhyloGroup]],[[PhyloGroup]])
     ego' = 
-      let branches  = groupsToBranches $ fromList $ map (\g -> (getGroupId g, g))
+      let branches  = groupsToBranches' $ fromList $ map (\g -> (getGroupId g, g))
                     $ matchGroupsToGroups frame periods proxiConf thr docs coocs (fst ego)
           branches' = branches `using` parList rdeepseq
        in partition (\b -> (length $ nub $ map _phylo_groupPeriod b) > minBranch)
@@ -623,7 +623,7 @@ adaptativeTemporalMatching elevation phylo = updatePhyloGroups 1
     --  here we suppose that all the groups of level 1 are part of the same big branch
     groups :: [([PhyloGroup],(Bool,[Double]))]
     groups = map (\b -> (b,((length $ nub $ map _phylo_groupPeriod b) >= (_qua_minBranch $ phyloQuality $ getConfig phylo),[thr])))
-           $ groupsToBranches $ fromList $ map (\g -> (getGroupId g, g))
+           $ groupsToBranches' $ fromList $ map (\g -> (getGroupId g, g))
            $ matchGroupsToGroups (getTimeFrame $ timeUnit $ getConfig phylo) 
                          (getPeriodIds phylo) (phyloProximity $ getConfig phylo) 
                          thr