[VERSION] +1 to 0.0.6.9.7.4
[gargantext.git] / bin / gargantext-cli / CleanCsvCorpus.hs
index de216dd7e5aa075bc28299546c45251aa249feac..15b21a3b79cf00d84438e68a170719bfc1993081 100644 (file)
@@ -40,7 +40,7 @@ main = do
   --let q = ["water", "scarcity", "morocco", "shortage","flood"]
   let q = ["gratuit", "gratuité", "culture", "culturel"]
 
-  eDocs <- CSV.readFile rPath
+  eDocs <- CSV.readCSVFile rPath
   case eDocs of
     Right (h, csvDocs) -> do
       putStrLn $ "Number of documents before:" <> show (V.length csvDocs)