[DEBUG] Message
[gargantext.git] / src / Gargantext / Core / Text / Convert.hs
index 2807df080194bf9f4cf28fa6c5bef8cc5b442b2d..17e116e59aca2670e76ab2c156cfb156fa36698b 100644 (file)
@@ -22,12 +22,12 @@ import System.FilePath (FilePath()) -- , takeExtension)
 
 import Gargantext.Prelude
 import Gargantext.Core.Text.Corpus.Parsers.CSV (writeDocs2Csv)
-import Gargantext.Core.Text.Corpus.Parsers (parseFile, FileFormat(..))
+import Gargantext.Core.Text.Corpus.Parsers (parseFile, FileFormat(..), FileType(..))
 
 
 risPress2csvWrite :: FilePath -> IO ()
 risPress2csvWrite f = do
-  eContents <- parseFile RisPresse    (f <> ".ris")
+  eContents <- parseFile RisPresse Plain (f <> ".ris")
   case eContents of
     Right contents -> writeDocs2Csv (f <> ".csv") contents
     Left e         -> panic $ "Error: " <> (T.pack e)