Skip to content

haskell-gargantext
haskell-gargantext
Commit e645b9dc authored by Alexandre Delanoë's avatar Alexandre Delanoë
Browse files
Options

[FIX] warnings

parent cf5f0c0b
Pipeline #688 canceled with stage
    Show whitespace changes
    Inline Side-by-side
    Showing with 3 additions and 2 deletions
    src/Gargantext/API/Corpus/New.hs
    View file @ e645b9dc
    ......@@ -245,13 +245,14 @@ addToCorpusWithForm :: FlowCmdM env err m
    -> WithForm
    -> (ScraperStatus -> m ())
    -> m ScraperStatus
    addToCorpusWithForm cid (WithForm ft d) logStatus = do
    addToCorpusWithForm _cid (WithForm ft d) logStatus = do
    logStatus ScraperStatus { _scst_succeeded = Just 10
    , _scst_failed = Just 2
    , _scst_remaining = Just 138
    , _scst_events = Just []
    }
    _h <- putStrLn $ show ft
    _ <- putStrLn $ show ft
    _ <- putStrLn $ show d
    pure ScraperStatus { _scst_succeeded = Just 137
    , _scst_failed = Just 13
    ......
    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