bin/gargantext-import/Main.hs

   1 {-|
   2 Module      : Main.hs
   3 Description : Gargantext Import Corpus
   4 Copyright   : (c) CNRS, 2017-Present
   5 License     : AGPL + CECILL v3
   6 Maintainer  : team@gargantext.org
   7 Stability   : experimental
   8 Portability : POSIX
   9
  10 Import a corpus binary.
  11
  12  -}
  13
  14 {-# LANGUAGE NoImplicitPrelude #-}
  15 {-# LANGUAGE OverloadedStrings #-}
  16 {-# LANGUAGE FlexibleContexts  #-}
  17 {-# LANGUAGE RankNTypes        #-}
  18 {-# LANGUAGE Strict            #-}
  19
  20 module Main where
  21
  22 import Control.Exception (finally)
  23 import Servant (ServantErr)
  24 import Gargantext.Prelude
  25 import Gargantext.Database.Flow (FlowCmdM, flowCorpus)
  26 import Gargantext.Text.Parsers (FileFormat(CsvHalFormat))
  27 import Gargantext.Database.Utils (Cmd, connectGargandb, runCmdDev)
  28 import Gargantext.Database.Types.Node (CorpusId)
  29 --import Gargantext.Database.Schema.User (insertUsers, gargantuaUser, simpleUser)
  30 import Gargantext.API.Node () -- instances
  31 import Gargantext.API.Settings (newDevEnvWith, cleanEnv, DevEnv)
  32 import System.Environment (getArgs)
  33
  34 main :: IO ()
  35 main = do
  36   [iniPath, name, corpusPath] <- getArgs
  37
  38   env <- newDevEnvWith iniPath
  39
  40   (do
  41     {-let createUsers :: Cmd ServantErr Int64
  42         createUsers = insertUsers [gargantuaUser,simpleUser]
  43     _ <- runCmdDev env createUsers
  44     -}
  45
  46     let cmd :: FlowCmdM DevEnv ServantErr m => m CorpusId
  47         cmd = flowCorpus CsvHalFormat corpusPath (cs name)
  48     _ <- runCmdDev env cmd
  49     pure ()
  50     ) `finally` cleanEnv env
  51
  52