[docs table] add GET request support
[gargantext.git] / bin / gargantext-import / Main.hs
index 5191c691a2333cb5a883ac60ec7ad3e37fae2dbd..4ee4c86166e580ace5b92aad66ca42219f933cc8 100644 (file)
@@ -11,10 +11,6 @@ Import a corpus binary.
 
  -}
 
-{-# LANGUAGE NoImplicitPrelude #-}
-{-# LANGUAGE OverloadedStrings #-}
-{-# LANGUAGE FlexibleContexts  #-}
-{-# LANGUAGE RankNTypes        #-}
 {-# LANGUAGE Strict            #-}
 
 module Main where
@@ -24,16 +20,16 @@ import Data.Either
 import Data.Text (Text)
 import Gargantext.API.Node () -- instances
 import Gargantext.API.Admin.Settings (withDevEnv, runCmdDev, DevEnv)
-import Gargantext.API.Admin.Types (GargError)
+import Gargantext.API.Prelude (GargError)
 import Gargantext.Core (Lang(..))
 import Gargantext.Core.Types.Individu (User(..))
-import Gargantext.Database.Action.Flow (FlowCmdM, flowCorpusFile, flowAnnuaire)
-import Gargantext.Database.Action.Query.User (insertUsersDemo)
-import Gargantext.Database.Admin.Types.Node (CorpusId, toHyperdataDocument)
-import Gargantext.Database.Admin.Utils (Cmd, )
+import Gargantext.Database.Action.Flow (FlowCmdM, flowCorpusFile, flowAnnuaire, TermType(..))
+import Gargantext.Database.Query.Table.User (insertUsersDemo)
+import Gargantext.Database.Admin.Types.Hyperdata (toHyperdataDocument)
+import Gargantext.Database.Admin.Types.Node (CorpusId)
+import Gargantext.Database.Prelude (Cmd, )
 import Gargantext.Prelude
 import Gargantext.Text.Corpus.Parsers (FileFormat(..))
-import Gargantext.Text.Terms (TermType(..))
 import Prelude (read)
 import System.Environment (getArgs)
 import qualified Data.Text as Text
@@ -60,7 +56,6 @@ main = do
     annuaire :: forall m. FlowCmdM DevEnv GargError m => m CorpusId
     annuaire = flowAnnuaire (UserName $ cs user) (Left "Annuaire") (Multi EN) corpusPath
 
-
   {-
   let debatCorpus :: forall m. FlowCmdM DevEnv GargError m => m CorpusId
       debatCorpus = do
@@ -85,7 +80,6 @@ main = do
           then runCmdDev env corpusCsvHal
           else pure 0 --(cs "false")
  
-
     _ <- if fun == "annuaire"
             then runCmdDev env annuaire
             else pure 0