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.
module Main where
import Data.Either
import Prelude (read)
import Control.Exception (finally)
import Gargantext.Prelude
......@@ -34,6 +35,7 @@ import Gargantext.API.Node () -- instances
import Gargantext.API.Settings (withDevEnv, runCmdDev, DevEnv)
import System.Environment (getArgs)
--import Gargantext.Text.Corpus.Parsers.GrandDebat (readFile, GrandDebatReference(..))
import Data.Text (Text)
import qualified Data.Text as Text
import Control.Monad.IO.Class (liftIO)
......@@ -50,7 +52,7 @@ main = do
tt = (Multi EN)
format = WOS -- CsvGargV3
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
debatCorpus = do
......
......@@ -58,7 +58,6 @@ library:
- Gargantext.Text.Metrics.Count
- Gargantext.Text.Search
- Gargantext.Text.Terms
- Gargantext.Text.Terms.Stop
- Gargantext.Text.Terms.Mono
- Gargantext.Text.Terms.Multi.Lang.En
- 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