[ngrams] one more simplification in ngramsByDoc'

src/Gargantext/Database/Action/Flow/Utils.hs

@@ -224,8 +224,11 @@ ngramsByDoc' :: Lang
 ngramsByDoc' l nt ts doc =
   HashMap.map (\cnt -> DM.singleton nt $ DM.singleton nId (1, cnt)) extractedMap
   where
-    _docNgrams' :: ([(MatchedText, TermsCount)], NodeId)
-    _docNgrams'@(matched, nId) = (docNgrams l ts doc, doc ^. context_oid_id)
+    matched :: [(MatchedText, TermsCount)]
+    matched = docNgrams l ts doc
+
+    nId :: NodeId
+    nId = doc ^. context_oid_id
 
     withExtractedNgrams :: [(ExtractedNgrams, TermsCount)]
     withExtractedNgrams = first (SimpleNgrams . text2ngrams) <$> matched