[WIP] BIN import corpus CLI.

package.yaml

@@ -40,6 +40,7 @@ library:
   - Gargantext.Database.Schema.Node
   - Gargantext.Database.Cooc
   - Gargantext.Database.Tree
+  - Gargantext.Database.Utils
   - Gargantext.Prelude
   - Gargantext.Text
   - Gargantext.Text.Context
@@ -48,6 +49,7 @@ library:
   - Gargantext.Text.Metrics
   - Gargantext.Text.Metrics.CharByChar
   - Gargantext.Text.Metrics.Count
+  - Gargantext.Text.Parsers
   - Gargantext.Text.Parsers.CSV
   - Gargantext.Text.Parsers.Date
   - Gargantext.Text.Parsers.Wikimedia
@@ -218,6 +220,20 @@ executables:
       - unordered-containers
       - full-text-search
 
+  gargantext-import:
+    main: Main.hs
+    source-dirs: bin/gargantext-import
+    ghc-options:
+    - -threaded
+    - -rtsopts
+    - -with-rtsopts=-N
+    - -O2
+    - -Wmissing-signatures
+    dependencies:
+      - gargantext
+      - base
+      - servant
+
 tests:
 #   garg-test:
 #     main: Main.hs

src/Gargantext/Database/Utils.hs

@@ -73,11 +73,16 @@ runCmdDev f = do
   conn <- connectGargandb "gargantext.ini"
   either (fail . show) pure =<< runCmd conn f
 
-runCmdDev' :: Cmd ServantErr a -> IO a
-runCmdDev' f = do
-  conn <- connectGargandb "gargantext.ini"
+runCmdDevWith :: FilePath -> Cmd ServantErr a -> IO a
+runCmdDevWith fp f = do
+  conn <- connectGargandb fp
   either (fail . show) pure =<< runCmd conn f
 
+runCmdDevWith' :: Cmd ServantErr a -> IO a
+runCmdDevWith' f = runCmdDevWith "gargantext.ini" f
+
+
+
 -- Use only for dev
 runCmdDevNoErr :: Cmd () a -> IO a
 runCmdDevNoErr = runCmdDev