add a parameter in the config for finding the ancestors or not

src/Gargantext/Core/Viz/AdaptativePhylo.hs

@@ -124,6 +124,7 @@ data Config =
             , phyloLevel     :: Int
             , phyloProximity :: Proximity
             , seaElevation   :: SeaElevation
+            , findAncestors  :: Bool
             , phyloSynchrony :: Synchrony
             , phyloQuality   :: Quality
             , timeUnit       :: TimeUnit
@@ -144,6 +145,7 @@ defaultConfig =
             , phyloLevel     = 2
             , phyloProximity = WeightedLogJaccard 10
             , seaElevation   = Constante 0.1 0.1
+            , findAncestors  = True
             , phyloSynchrony = ByProximityThreshold 0.5 10 SiblingBranches MergeAllGroups
             , phyloQuality   = Quality 100 1
             , timeUnit       = Year 3 1 5

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

@@ -59,7 +59,10 @@ toPhylo docs lst conf = trace ("# phylo1 groups " <> show(length $ getGroupsFrom
     where
         --------------------------------------
         phyloAncestors :: Phylo
-        phyloAncestors = toHorizon phylo1
+        phyloAncestors = 
+            if (findAncestors conf)
+              then toHorizon phylo1
+              else phylo1
         --------------------------------------
         phylo1 :: Phylo
         phylo1 = toPhylo1 docs phyloBase