adaptative time fixed

src/Gargantext/Core/Viz/Phylo/PhyloMaker.hs

@@ -522,7 +522,8 @@ initPhylo docs conf =
                  then defaultPhyloParam { _phyloParam_config = setDefault conf timeScale }
                  else defaultPhyloParam { _phyloParam_config = conf }
         periods = toPeriods (sort $ nub $ map date docs) (getTimePeriod timeScale) (getTimeStep timeScale)
-    in trace ("\n" <> "-- | Init a phylo out of " <> show(length docs) <> " docs \n") 
+    in trace ("\n" <> "-- | Init a phylo out of " <> show(length docs) <> " docs \n")
+       $ trace ("\n" <> "-- | lambda " <> show(_qua_granularity $ phyloQuality $ _phyloParam_config params)) 
        $ Phylo foundations
                docsSources
                docsCounts

src/Gargantext/Core/Viz/Phylo/PhyloTools.hs

@@ -519,7 +519,7 @@ getConfig :: Phylo -> PhyloConfig
 getConfig phylo = (phylo ^. phylo_param) ^. phyloParam_config
 
 getLevel :: Phylo -> Double
-getLevel phylo = _phylo_level phylo
+getLevel phylo = (phyloQuality (getConfig phylo)) ^. qua_granularity
 
 getLadder :: Phylo -> [Double]
 getLadder phylo = phylo ^. phylo_seaLadder