Skip to content

haskell-gargantext
haskell-gargantext
Unverified Commit 41555f82 authored by Nicolas Pouillard's avatar Nicolas Pouillard
Browse files
Options

update runCmdDev

parent 7185a03b
Pipeline #123 failed with stage
    Show whitespace changes
    Inline Side-by-side
    Showing with 4 additions and 10 deletions
    src/Gargantext/Database/Utils.hs
    View file @ 41555f82
    ...@@ -68,24 +68,18 @@ runCmd :: Connection -> Cmd err a -> IO (Either err a) ...@@ -68,24 +68,18 @@ runCmd :: Connection -> Cmd err a -> IO (Either err a)
    runCmd conn m = runExceptT $ runReaderT m conn runCmd conn m = runExceptT $ runReaderT m conn
    -- Use only for dev -- Use only for dev
    runCmdDev :: Show err => Cmd err a -> IO a
    runCmdDev f = do
    conn <- connectGargandb "gargantext.ini"
    either (fail . show) pure =<< runCmd conn f
    runCmdDevWith :: FilePath -> Cmd ServantErr a -> IO a runCmdDevWith :: FilePath -> Cmd ServantErr a -> IO a
    runCmdDevWith fp f = do runCmdDevWith fp f = do
    conn <- connectGargandb fp conn <- connectGargandb fp
    either (fail . show) pure =<< runCmd conn f either (fail . show) pure =<< runCmd conn f
    runCmdDev' :: Cmd ServantErr a -> IO a -- Use only for dev
    runCmdDev' = runCmdDevWith "gargantext.ini" runCmdDev :: Cmd ServantErr a -> IO a
    runCmdDev = runCmdDevWith "gargantext.ini"
    -- Use only for dev -- Use only for dev
    runCmdDevNoErr :: Cmd () a -> IO a runCmdDevNoErr :: Cmd () a -> IO a
    runCmdDevNoErr = runCmdDev runCmdDevNoErr = runCmdDevWith "gargantext.ini"
    runOpaQuery :: Default FromFields fields haskells => Select fields -> Cmd err [haskells] runOpaQuery :: Default FromFields fields haskells => Select fields -> Cmd err [haskells]
    runOpaQuery q = mkCmd $ \c -> runQuery c q runOpaQuery q = mkCmd $ \c -> runQuery c q
    ......
    Markdown is supported
    0% or
    You are about to add 0 people to the discussion. Proceed with caution.
    Finish editing this message first!
    Please register or to comment