Skip to content

haskell-gargantext
haskell-gargantext
Commit da5cd904 authored by Przemyslaw Kaminski's avatar Przemyslaw Kaminski
Browse files
Options

[API] fix API/Prelude syntax

parent eec3bc97
Pipeline #899 failed with stage
    Hide whitespace changes
    Inline Side-by-side
    Showing with 1 addition and 3 deletions
    src/Gargantext/API/Prelude.hs
    View file @ da5cd904
    ...@@ -171,8 +171,6 @@ simuTask :: MonadBase IO m ...@@ -171,8 +171,6 @@ simuTask :: MonadBase IO m
    -> m () -> m ()
    simuTask logStatus cur total = do simuTask logStatus cur total = do
    _ <- liftBase $ threadDelay (m*5) _ <- liftBase $ threadDelay (m*5)
    where m = (10 :: Int) ^ (6 :: Int)
    let status = JobLog { _scst_succeeded = Just cur let status = JobLog { _scst_succeeded = Just cur
    , _scst_failed = Just 0 , _scst_failed = Just 0
    , _scst_remaining = (-) <$> Just total <*> Just cur , _scst_remaining = (-) <$> Just total <*> Just cur
    ...@@ -180,4 +178,4 @@ simuTask logStatus cur total = do ...@@ -180,4 +178,4 @@ simuTask logStatus cur total = do
    } }
    printDebug "status" status printDebug "status" status
    logStatus status logStatus status
    where m = (10 :: Int) ^ (6 :: Int)
    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