Merge branch 'dev-phylo' of https://gitlab.iscpif.fr/gargantext/haskell-gargantext into dev-phylo

bin/gargantext-phylo/Main.hs

@@ -41,10 +41,12 @@ import Gargantext.Viz.Phylo.LevelMaker
 import Gargantext.Viz.Phylo.View.Export
 import Gargantext.Viz.Phylo.View.ViewMaker
 
+
 import Gargantext.Database.Types.Node
 
 import Data.Maybe
 
+
 import qualified Data.Map    as DM
 import qualified Data.Vector as DV
 import qualified Data.List   as DL

src/Gargantext/Viz/Phylo/Aggregates/Fis.hs

@@ -110,4 +110,4 @@ traceFis lbl m = trace (lbl <> "count : " <> show (sum $ map length $ elems m) <
     supps :: Vector Double
     supps = Vector.fromList $ sort $ map (fromIntegral . _phyloFis_support) $ concat $ elems m
     ngrms :: Vector Double
-    ngrms = Vector.fromList $ sort $ map (\f -> fromIntegral $ Set.size $ _phyloFis_clique f) $ concat $ elems m
\ No newline at end of file
+    ngrms = Vector.fromList $ sort $ map (\f -> fromIntegral $ Set.size $ _phyloFis_clique f) $ concat $ elems m

src/Gargantext/Viz/Phylo/LevelMaker.hs

@@ -36,7 +36,6 @@ import Gargantext.Viz.Phylo.Tools
 import Gargantext.Text.Context (TermList)
 
 import qualified Data.Vector.Storable as VS
-
 import qualified Data.Set    as Set
 import qualified Data.Vector as Vector
 
@@ -312,4 +311,4 @@ traceBranches lvl p = trace ( "----\n" <> "Branches in Phylo" <> show lvl <> " :
     brs = sort $ map (\(_,gs) -> fromIntegral $ length gs)
         $ filter (\(id,_) -> (fst id) == lvl)
         $ getGroupsByBranches p
-    --------------------------------------
\ No newline at end of file
+    --------------------------------------