ExtractNgrams on HyperdataContact is in principle pure

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

@@ -40,17 +40,16 @@ import Gargantext.Prelude
 
 ------------------------------------------------------------------------
 instance ExtractNgrams HyperdataContact where
-  extractNgrams _ncs l hc = HashMap.mapKeys (cleanExtractedNgrams 255) <$> extract l hc
+  extractNgrams _ncs _l = pure . HashMap.mapKeys (cleanExtractedNgrams 255) . extract
     where
-      extract :: TermType Lang
-              -> HyperdataContact
-              -> DBCmd err (HashMap.HashMap ExtractedNgrams (Map NgramsType TermsWeight, TermsCount))
-      extract _l hc' = do
+      extract :: HyperdataContact
+              -> HashMap.HashMap ExtractedNgrams (Map NgramsType TermsWeight, TermsCount)
+      extract hc' =
         let authors = map text2ngrams
                     $ maybe ["Nothing"] (\a -> [a])
                     $ view (hc_who . _Just . cw_lastName) hc'
 
-        pure $ HashMap.fromList $ [(SimpleNgrams a', (DM.singleton Authors 1, 1)) | a' <- authors ]
+        in HashMap.fromList $ [(SimpleNgrams a', (DM.singleton Authors 1, 1)) | a' <- authors ]
 
 
 -- | Main ngrams extraction functionality.