Add client function for main GraphQL endpoint
[gargantext.git] / src / Gargantext / Core / Text / Convert.hs
index a0d2c5d5de3ce8755be73e0e6648a2e1618e18e7..17e116e59aca2670e76ab2c156cfb156fa36698b 100644 (file)
@@ -16,15 +16,21 @@ Format Converter.
 module Gargantext.Core.Text.Convert (risPress2csvWrite)
     where
 
+import Data.Either (Either(..))
+import qualified Data.Text as T
 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 = parseFile RisPresse    (f <> ".ris")
-               >>= \hs -> writeDocs2Csv (f <> ".csv") hs
+risPress2csvWrite f = do
+  eContents <- parseFile RisPresse Plain (f <> ".ris")
+  case eContents of
+    Right contents -> writeDocs2Csv (f <> ".csv") contents
+    Left e         -> panic $ "Error: " <> (T.pack e)