fix temporal matching

src/Gargantext/Viz/AdaptativePhylo.hs

@@ -127,7 +127,7 @@ defaultConfig =
             , phyloLevel     = 2
             , phyloProximity = WeightedLogJaccard 10 0 0.1
             , phyloSynchrony = ByProximityDistribution 0
-            , phyloQuality   = Quality 0.3 1
+            , phyloQuality   = Quality 1 1
             , timeUnit       = Year 3 1 5
             , contextualUnit = Fis 1 5
             , exportLabel    = [BranchLabel MostInclusive 2, GroupLabel MostEmergentInclusive 2]

src/Gargantext/Viz/Phylo/TemporalMatching.hs

@@ -129,8 +129,8 @@ makePairs' ego candidates periods pointers fil thr prox docs =
         True  -> []
         False -> toLazyPairs pointers fil thr prox lastPrd
                 -- | at least on of the pair candidates should be from the last added period 
-               $ filter (\(g,g') -> ((g  ^. phylo_groupPeriod) == lastPrd)
-                                 || ((g' ^. phylo_groupPeriod) == lastPrd))
+               -- $ filter (\(g,g') -> ((g  ^. phylo_groupPeriod) == lastPrd)
+               --                   || ((g' ^. phylo_groupPeriod) == lastPrd))
                $ listToKeys 
                $ filter (\g -> (g ^. phylo_groupPeriod == lastPrd)
                             || ((toProximity docs prox ego ego g) >= thr)) candidates