fix synchrony

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

@@ -104,7 +104,7 @@ config =
     defaultConfig { phyloName  = "Cesar et Cleopatre"
                   , phyloLevel = 2
                   , exportFilter = [ByBranchSize 0]
-                  , clique = MaxClique 0 3 ByNeighbours }
+                  , clique = MaxClique 0 15 ByNeighbours }
 
 
 docs :: [Document]

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

@@ -135,7 +135,7 @@ groupsToEdges prox sync nbDocs diago groups =
         toEdges sens edges = 
             case prox of
                 WeightedLogJaccard _ -> map (\(g,g') -> 
-                                                     ((g,g'), weightedLogJaccard' (1 / sens) nbDocs diago
+                                                     ((g,g'), weightedLogJaccard' (sens) nbDocs diago
                                                                   (g ^. phylo_groupNgrams) (g' ^. phylo_groupNgrams))) edges
                 _ -> undefined