[REPL sugar] runCmdReplEasy

bin/gargantext-import/Main.hs

@@ -59,7 +59,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
@@ -84,7 +83,6 @@ main = do
           then runCmdDev env corpusCsvHal
           else pure 0 --(cs "false")
  
-
     _ <- if fun == "annuaire"
             then runCmdDev env annuaire
             else pure 0

src/Gargantext/API/Admin/Settings.hs

@@ -318,6 +318,7 @@ withDevEnv iniPath k = do
         }
 
 -- | Run Cmd Sugar for the Repl (GHCI)
+
 runCmdRepl :: Show err => Cmd' DevEnv err a -> IO a
 runCmdRepl f = withDevEnv "gargantext.ini" $ \env -> runCmdDev env f
 

src/Gargantext/API/Prelude.hs

@@ -106,7 +106,9 @@ type EnvC env =
   , HasJobEnv env ScraperStatus ScraperStatus
   )
 
-
+-------------------------------------------------------------------
+runCmdReplEasy :: Cmd' DevEnv GargError a -> IO a
+runCmdReplEasy f = withDevEnv "gargantext.ini" $ \env -> runCmdDev env f
 
 -------------------------------------------------------------------
 -- | This Type is needed to prepare the function before the GargServer

src/Gargantext/Database.hs

@@ -23,3 +23,6 @@ module Gargantext.Database ( module Gargantext.Database.Prelude
 
 import Gargantext.Database.Prelude (connectGargandb)
 -- import Gargantext.Database.Bashql
+
+
+

src/Gargantext/Database/Query/Table/User.hs

@@ -66,7 +66,6 @@ insertUsersDemo = do
   insertUsers $ map (\(u,m,h) -> gargUserWith u m h) users
 
 -----------------------------------------------------------------------
-
 gargUserWith :: Username -> Email -> Auth.PasswordHash Auth.Argon2 -> UserWrite
 gargUserWith u m (Auth.PasswordHash p) = UserDB (Nothing) (pgStrictText p)
                          (Nothing) (pgBool True) (pgStrictText u)