[FEAT] Lang NLP

src/Gargantext/API/Node/Corpus/New.hs

@@ -310,6 +310,8 @@ addToCorpusWithForm user cid (NewWithForm ft ff d l _n) logStatus jobLog = do
 
       --printDebug "Starting extraction     : " cid
       -- TODO granularity of the logStatus
+      printDebug "flowCorpus with lang" l
+
       _cid' <- flowCorpus user
                           (Right [cid])
                           (Multi $ fromMaybe EN l)

src/Gargantext/Core/Text/Terms/Multi/PosTagging.hs

@@ -41,7 +41,7 @@ tokens2tokensTags :: [Token] -> [TokenTag]
 tokens2tokensTags ts = filter' $ map tokenTag ts
 ------------------------------------------------------------------------
 tokenTag :: Token -> TokenTag
-tokenTag (Token _ _ w l _ _ p n _ _) = TokenTag w' l' p n
+tokenTag (Token _ w _ l _ _ p n _ _) = TokenTag w' l' p n
   where
     w' = split w
     l' = fromList (split l)
@@ -53,7 +53,6 @@ filter' xs = filter isNgrams xs
       isNgrams (TokenTag _ _ p n) = isJust p || isJust n
 
 ------------------------------------------------------------------------
-
 -- request = 
 -- "fr" : {
 --                 "tokenize.language" : "fr",