[Phylo] Example Phylo' type.
[gargantext.git] / bin / gargantext-import / Main.hs
index af52d4411c721351cac249fc265c6d2d6ecc1821..07c581b7ba9acfcf73e8cabf365f0e2808ff006d 100644 (file)
@@ -24,12 +24,18 @@ import Gargantext.Database.Flow (flowCorpus)
 import Gargantext.Text.Parsers (FileFormat(CsvHalFormat))
 import Gargantext.Database.Utils (Cmd, connectGargandb, runCmdDevWith)
 import Gargantext.Database.Types.Node (NodeId)
+--import Gargantext.Database.Schema.User (insertUsers, gargantuaUser, simpleUser)
 import Gargantext.API.Node () -- instances
 import System.Environment (getArgs)
 
--- main :: IO ()
+main :: IO ()
 main = do
   [iniPath, name, corpusPath] <- getArgs
+
+  {-let createUsers :: Cmd ServantErr Int64
+      createUsers = insertUsers [gargantuaUser,simpleUser]
+  _ <- runCmdDevWith iniPath createUsers
+  -}
   let cmd :: Cmd ServantErr NodeId
       cmd = flowCorpus CsvHalFormat corpusPath (cs name)
   r <- runCmdDevWith iniPath cmd