Some fixes

bin/gargantext-cli/Main.hs

@@ -26,20 +26,21 @@ import qualified Data.Vector as DV
 
 import Gargantext.Prelude
 import Data.Text (Text)
+import System.Environment
 
-import Gargantext.Text.Parsers.CSV (readCsv)
+import Gargantext.Text.Parsers.CSV (readCsv, csv_abstract)
 import Gargantext.Text.List.CSV (fromCsvListFile)
 
 main :: IO ()
 main = do
-  [corpusfile, termListFile, outputFile] <- readParams
-  
+  [corpusFile, termListFile, outputFile] <- getArgs
+
   -- corpus :: [Text]
-  corpus   <- DV.toList <$> map DV.csv_abstract <$> readCsv corpusFile
-  
+  corpus   <- DV.toList . fmap csv_abstract . snd <$> readCsv corpusFile
+
   -- termListMap :: [Text]
   termList <- termListMap <$> fromCsvListFile termListFile
-  
+
   let corpusIndexed = indexCorpusWith corpus termList
   let cooc = cooccurrences corpusIndexed
 

src/Gargantext/Text/Terms/Mono.hs

@@ -18,7 +18,6 @@ module Gargantext.Text.Terms.Mono (monoTerms, monoTexts, monoTextsBySentence)
 
 import Prelude (String)
 import Data.Char (isSpace)
-import Data.Text (Text, toLower, split, splitOn, pack)
 
 import Data.Text (Text)
 import qualified Data.Text as T

src/Gargantext/Text/Terms/WithList.hs

@@ -16,10 +16,7 @@ commentary with @some markup@.
 
 module Gargantext.Text.Terms.WithList where
 
-import Prelude (String)
 import qualified Data.Algorithms.KMP as KMP
-import Data.Char (isSpace)
-import qualified Data.Text as T
 import Data.Text (Text)
 import qualified Data.IntMap.Strict as IntMap