]> Git — Sourcephile - gargantext.git/blob - src/Gargantext/Text/Convert.hs
[FIX] TFICF condition (better implemented definition)
[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 PackageImports #-}
15
16 module Gargantext.Text.Convert (risPress2csvWrite)
17 where
18
19 import System.FilePath (FilePath()) -- , takeExtension)
20 import Gargantext.Prelude
21 import Gargantext.Text.Corpus.Parsers.CSV (writeDocs2Csv)
22 import Gargantext.Text.Corpus.Parsers (parseFile, FileFormat(..))
23
24
25 risPress2csvWrite :: FilePath -> IO ()
26 risPress2csvWrite f = parseFile RisPresse (f <> ".ris")
27 >>= \hs -> writeDocs2Csv (f <> ".csv") hs
28
29
30