Commit 61e8d712 authored by Alexandre Delanoë's avatar Alexandre Delanoë

[FIX] Build.

parent 31e92875
Pipeline #521 failed with stage
...@@ -19,6 +19,7 @@ Import a corpus binary. ...@@ -19,6 +19,7 @@ Import a corpus binary.
module Main where module Main where
import Data.Either
import Prelude (read) import Prelude (read)
import Control.Exception (finally) import Control.Exception (finally)
import Gargantext.Prelude import Gargantext.Prelude
...@@ -34,6 +35,7 @@ import Gargantext.API.Node () -- instances ...@@ -34,6 +35,7 @@ import Gargantext.API.Node () -- instances
import Gargantext.API.Settings (withDevEnv, runCmdDev, DevEnv) import Gargantext.API.Settings (withDevEnv, runCmdDev, DevEnv)
import System.Environment (getArgs) import System.Environment (getArgs)
--import Gargantext.Text.Corpus.Parsers.GrandDebat (readFile, GrandDebatReference(..)) --import Gargantext.Text.Corpus.Parsers.GrandDebat (readFile, GrandDebatReference(..))
import Data.Text (Text)
import qualified Data.Text as Text import qualified Data.Text as Text
import Control.Monad.IO.Class (liftIO) import Control.Monad.IO.Class (liftIO)
...@@ -50,7 +52,7 @@ main = do ...@@ -50,7 +52,7 @@ main = do
tt = (Multi EN) tt = (Multi EN)
format = WOS -- CsvGargV3 format = WOS -- CsvGargV3
cmd :: forall m. FlowCmdM DevEnv GargError m => m CorpusId cmd :: forall m. FlowCmdM DevEnv GargError m => m CorpusId
cmd = flowCorpusFile (cs user) (cs name) (read limit :: Int) tt format corpusPath cmd = flowCorpusFile (cs user) (Left (cs name :: Text)) (read limit :: Int) tt format corpusPath
{- {-
let debatCorpus :: forall m. FlowCmdM DevEnv GargError m => m CorpusId let debatCorpus :: forall m. FlowCmdM DevEnv GargError m => m CorpusId
debatCorpus = do debatCorpus = do
......
...@@ -58,7 +58,6 @@ library: ...@@ -58,7 +58,6 @@ library:
- Gargantext.Text.Metrics.Count - Gargantext.Text.Metrics.Count
- Gargantext.Text.Search - Gargantext.Text.Search
- Gargantext.Text.Terms - Gargantext.Text.Terms
- Gargantext.Text.Terms.Stop
- Gargantext.Text.Terms.Mono - Gargantext.Text.Terms.Mono
- Gargantext.Text.Terms.Multi.Lang.En - Gargantext.Text.Terms.Multi.Lang.En
- Gargantext.Text.Terms.Multi.Lang.Fr - Gargantext.Text.Terms.Multi.Lang.Fr
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment