[IMPORT] Fix build issues

parent 81660d0f
...@@ -13,7 +13,8 @@ Import a corpus binary. ...@@ -13,7 +13,8 @@ Import a corpus binary.
{-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE Strict #-} {-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE Strict #-}
module Main where module Main where
...@@ -21,14 +22,17 @@ import Servant (ServantErr) ...@@ -21,14 +22,17 @@ import Servant (ServantErr)
import Gargantext.Prelude import Gargantext.Prelude
import Gargantext.Database.Flow (flowCorpus) import Gargantext.Database.Flow (flowCorpus)
import Gargantext.Text.Parsers (FileFormat(CsvHalFormat)) import Gargantext.Text.Parsers (FileFormat(CsvHalFormat))
import Gargantext.Database.Utils (connectGargandb, runCmdDevWith) import Gargantext.Database.Utils (Cmd, connectGargandb, runCmdDevWith)
import Gargantext.Database.Types.Node (NodeId)
import Gargantext.API.Node () -- instances
import System.Environment (getArgs) import System.Environment (getArgs)
-- main :: IO () -- main :: IO ()
main = do main = do
[iniPath, name, corpusPath] <- getArgs [iniPath, name, corpusPath] <- getArgs
let cmd :: Cmd ServantErr NodeId
r <- runCmdDevWith iniPath $ flowCorpus CsvHalFormat corpusPath (cs name) :: Cmd ServantErr NodeId cmd = flowCorpus CsvHalFormat corpusPath (cs name)
r <- runCmdDevWith iniPath cmd
pure () pure ()
...@@ -28,6 +28,7 @@ library: ...@@ -28,6 +28,7 @@ library:
- Gargantext.API.Auth - Gargantext.API.Auth
- Gargantext.API.Count - Gargantext.API.Count
- Gargantext.API.FrontEnd - Gargantext.API.FrontEnd
- Gargantext.API.Node
- Gargantext.API.Orchestrator - Gargantext.API.Orchestrator
- Gargantext.API.Search - Gargantext.API.Search
- Gargantext.API.Settings - Gargantext.API.Settings
...@@ -40,6 +41,7 @@ library: ...@@ -40,6 +41,7 @@ library:
- Gargantext.Database.Schema.Node - Gargantext.Database.Schema.Node
- Gargantext.Database.Cooc - Gargantext.Database.Cooc
- Gargantext.Database.Tree - Gargantext.Database.Tree
- Gargantext.Database.Types.Node
- Gargantext.Database.Utils - Gargantext.Database.Utils
- Gargantext.Prelude - Gargantext.Prelude
- Gargantext.Text - Gargantext.Text
...@@ -232,7 +234,7 @@ executables: ...@@ -232,7 +234,7 @@ executables:
dependencies: dependencies:
- gargantext - gargantext
- base - base
- servant - servant-server
tests: tests:
# garg-test: # garg-test:
......
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