[FIX] Lists of ngrams.

src/Gargantext/Database/Flow.hs

@@ -244,7 +244,6 @@ insertMasterDocs c lang hs  =  do
   pure $ map reId ids
 
 
-
 type CorpusName = Text
 
 getOrMkRootWithCorpus :: (HasNodeError err, MkCorpus a)
@@ -283,8 +282,6 @@ getOrMkRootWithCorpus username cName c = do
 
 
 ------------------------------------------------------------------------
-
-
 viewUniqId' :: UniqId a => a -> (HashId, a)
 viewUniqId' d = maybe err (\h -> (h,d)) (view uniqId d)
       where

src/Gargantext/Text/List.hs

@@ -73,7 +73,8 @@ buildNgramsOthersList uCid groupIt nt = do
 
   let
     all' = Map.toList ngs
-  pure $ (toElements GraphTerm $ take 10 all') <> (toElements CandidateTerm $ drop 10 all')
+  pure $ (toElements GraphTerm all') <> (toElements CandidateTerm all')
+  --pure $ (toElements GraphTerm $ take 10 all') <> (toElements CandidateTerm $ drop 10 all')
     where
       toElements nType x = Map.fromList [(nt, [ mkNgramsElement t nType Nothing (mSetFromList [])
                             | (t,_ns) <- x