[REORG:LIST] Formats.CSV

bin/gargantext-adaptative-phylo/Main.hs

@@ -28,7 +28,7 @@ import Gargantext.Database.Admin.Types.Hyperdata (HyperdataDocument(..))
 import Gargantext.Core.Text.Context (TermList)
 import Gargantext.Core.Text.Corpus.Parsers.CSV (csv_title, csv_abstract, csv_publication_year)
 import Gargantext.Core.Text.Corpus.Parsers (FileFormat(..),parseFile)
-import Gargantext.Core.Text.List.CSV (csvMapTermList)
+import Gargantext.Core.Text.List.Formats.CSV (csvMapTermList)
 import Gargantext.Core.Text.Terms.WithList (Patterns, buildPatterns, extractTermsWithList)
 import Gargantext.Core.Viz.AdaptativePhylo
 import Gargantext.Core.Viz.Phylo.PhyloMaker  (toPhylo)

bin/gargantext-cli/Main.hs

@@ -53,7 +53,7 @@ import Gargantext.Core.Text.Terms
 import Gargantext.Core.Text.Context
 import Gargantext.Core.Text.Terms.WithList
 import Gargantext.Core.Text.Corpus.Parsers.CSV (readFile, csv_title, csv_abstract, csv_publication_year)
-import Gargantext.Core.Text.List.CSV (csvMapTermList)
+import Gargantext.Core.Text.List.Formats.CSV (csvMapTermList)
 import Gargantext.Core.Text.Terms (terms)
 import Gargantext.Core.Text.Metrics.Count (coocOnContexts, Coocs)
 

bin/gargantext-phylo/Main.hs

@@ -31,7 +31,7 @@ import Gargantext.Prelude
 import Gargantext.Core.Text.Context (TermList)
 import Gargantext.Core.Text.Corpus.Parsers (FileFormat(..),parseFile)
 import Gargantext.Core.Text.Corpus.Parsers.CSV (csv_title, csv_abstract, csv_publication_year)
-import Gargantext.Core.Text.List.CSV (csvMapTermList)
+import Gargantext.Core.Text.List.Formats.CSV (csvMapTermList)
 import Gargantext.Core.Text.Terms.WithList
 import Gargantext.Core.Viz.Phylo
 import Gargantext.Core.Viz.Phylo.LevelMaker

src/Gargantext/Core/Text/List/CSV.hs → src/Gargantext/Core/Text/List/Formats/CSV.hs

 {-|
-Module      : Gargantext.Core.Text.List.CSV
+Module      : Gargantext.Core.Text.List.Formats.CSV
 Description : 
 Copyright   : (c) CNRS, 2018-Present
 License     : AGPL + CECILL v3
@@ -12,29 +12,24 @@ CSV parser for Gargantext corpus files.
 -}
 
 
-module Gargantext.Core.Text.List.CSV where
-
-import GHC.IO (FilePath)
+module Gargantext.Core.Text.List.Formats.CSV where
 
 import Control.Applicative
 import Control.Monad (mzero)
-
 import Data.Char (ord)
 import Data.Csv
 import Data.Either (Either(Left, Right))
 import Data.List (null)
 import Data.Text (Text, pack)
-import qualified Data.Text as DT
-import qualified Data.ByteString.Lazy as BL
-
 import Data.Vector (Vector)
-import qualified Data.Vector as V
-
-import Gargantext.Prelude hiding (length)
+import GHC.IO (FilePath)
 import Gargantext.Core.Text.Context
+import Gargantext.Prelude hiding (length)
+import qualified Data.ByteString.Lazy as BL
+import qualified Data.Text as DT
+import qualified Data.Vector as V
 
 ------------------------------------------------------------------------
-
 csvMapTermList :: FilePath -> IO TermList
 csvMapTermList fp = csv2list CsvMap <$> snd <$>  fromCsvListFile fp