[FIX] if big list, just select some terms (quick fix for now)

src/Gargantext/Database/Action/Metrics/NgramsByContext.hs

@@ -33,6 +33,7 @@ import Gargantext.Database.Prelude (Cmd, runPGSQuery)
 import Gargantext.Database.Schema.Ngrams (ngramsTypeId, NgramsType(..))
 import Gargantext.Prelude
 import qualified Data.HashMap.Strict              as HM
+import qualified Data.List                        as List
 import qualified Data.Map                         as Map
 import qualified Data.Set                         as Set
 import qualified Database.PostgreSQL.Simple       as DPS
@@ -166,7 +167,7 @@ selectNgramsOccurrencesOnlyByContextUser_withSample cId int nt tms =
                 ( int
                 , toDBid NodeDocument
                 , cId
-                , Values fields ((DPS.Only . unNgramsTerm) <$> tms)
+                , Values fields ((DPS.Only . unNgramsTerm) <$> (List.take 10000 tms))
                 , cId
                 , ngramsTypeId nt
                 )