change the logs output

src/Gargantext/Viz/AdaptativePhylo.hs

@@ -143,7 +143,7 @@ defaultConfig =
             , phyloName      = pack "Default Phylo"
             , phyloLevel     = 2
             , phyloProximity = WeightedLogJaccard 10
-            , seaElevation   = Constante 0 0.1
+            , seaElevation   = Constante 0.6 1
             , phyloSynchrony = ByProximityThreshold 0.5 10 SiblingBranches MergeAllGroups
             , phyloQuality   = Quality 0.1 1
             , timeUnit       = Year 3 1 5

src/Gargantext/Viz/Phylo/TemporalMatching.hs

@@ -381,7 +381,7 @@ seaLevelMatching proximity beta minBranch frequency thr step depth elevation fra
     else 
       -- | break all the possible branches at the current seaLvl level
       let quality    = toPhyloQuality beta frequency (map fst branches)
-          branches'  = trace ("↑ level = " <> printf "%.1f" thr <> " F(β) = " <> printf "%.3f" quality <> " branches = " <> show(length branches)) 
+          branches'  = trace ("↑ level = " <> printf "%.2f" thr <> " F(β) = " <> printf "%.5f" quality <> " branches = " <> show(length branches) <> " ↴") 
                      $ breakBranches proximity beta frequency minBranch thr depth elevation frame docs coocs periods 
                                      [] (head' "seaLevelMatching" branches) (tail' "seaLevelMatching" branches)
           frequency' = reduceFrequency frequency (map fst branches')