]> Git — Sourcephile - gargantext.git/blob - src/Gargantext/Text/Convert.hs
no logs
[gargantext.git] / src / Gargantext / Text / Convert.hs
1 {-|
2 Module : Gargantext.Text.Convert
3 Description : All parsers of Gargantext in one file.
4 Copyright : (c) CNRS, 2017
5 License : AGPL + CECILL v3
6 Maintainer : team@gargantext.org
7 Stability : experimental
8 Portability : POSIX
9
10 Format Converter.
11
12 -}
13
14 {-# LANGUAGE NoImplicitPrelude #-}
15 {-# LANGUAGE PackageImports #-}
16 {-# LANGUAGE OverloadedStrings #-}
17
18 module Gargantext.Text.Convert (risPress2csvWrite)
19 where
20
21 import System.FilePath (FilePath()) -- , takeExtension)
22 import Gargantext.Prelude
23 import Gargantext.Text.Corpus.Parsers.CSV (writeDocs2Csv)
24 import Gargantext.Text.Corpus.Parsers (parseFile, FileFormat(..))
25
26
27 risPress2csvWrite :: FilePath -> IO ()
28 risPress2csvWrite f = parseFile RisPresse (f <> ".ris")
29 >>= \hs -> writeDocs2Csv (f <> ".csv") hs
30
31
32