[TEST Q] ok (needs some refact still)

src/Gargantext/Core/Text/List/Group/WithStem.hs

@@ -77,8 +77,9 @@ groupWith (GroupParams l _m _n _) t =
                   $ Text.intercalate " "
                   $ map (stem l)
                   -- . take n
-                  $ Set.toList
-                  $ Set.fromList
+                  $ List.sort
+                  -- $ Set.toList
+                  -- $ Set.fromList
                   -- . (List.filter (\t -> Text.length t > m))
                   $ Text.splitOn " "
                   $ Text.replace "-" " "

src/Gargantext/Core/Text/Terms.hs

@@ -100,12 +100,11 @@ withLang (Unsupervised l n s m) ns = Unsupervised l n s m'
   where
     m' = case m of
       Nothing -> -- trace ("buildTries here" :: String)
-               Just $ buildTries n ( fmap toToken
+               Just $ buildTries n $ fmap toToken
                                    $ uniText
                                    $ Text.intercalate " . "
                                    $ List.concat
                                    $ map hasText ns
-                                   )
       just_m -> just_m
 withLang l _ = l
 

src/Gargantext/Database/Action/Flow.hs

@@ -68,7 +68,7 @@ import Gargantext.Core.Ext.IMT (toSchoolName)
 import Gargantext.Core.Ext.IMTUser (deserialiseImtUsersFromFile)
 import Gargantext.Core.Flow.Types
 import Gargantext.Core.Text
-import Gargantext.Core.Text.List.Group.WithStem ({-StopSize(..),-} GroupParams(..))
+import Gargantext.Core.Text.List.Group.WithStem (StopSize(..), GroupParams(..))
 import Gargantext.Core.Text.Corpus.Parsers (parseFile, FileFormat)
 import Gargantext.Core.Text.List (buildNgramsLists)
 import Gargantext.Core.Text.Terms
@@ -232,7 +232,7 @@ flowCorpusUser l user corpusName ctype ids = do
   -- User List Flow
   (masterUserId, _masterRootId, masterCorpusId) <- getOrMk_RootWithCorpus (UserName userMaster) (Left "") ctype
 
-  -- let gp = (GroupParams l 2 3 (StopSize 3)) 
+  --let gp = (GroupParams l 2 3 (StopSize 3)) 
   let gp = GroupWithPosTag l CoreNLP HashMap.empty 
   ngs         <- buildNgramsLists gp user userCorpusId masterCorpusId