Skip to content

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

[API][FLOW][Upload] just for CsvHal

parent 69eb6ac8
Pipeline #694 failed with stage
    Show whitespace changes
    Inline Side-by-side
    Showing with 9 additions and 9 deletions
    src/Gargantext/API/Corpus/New.hs
    View file @ 1376127f
    ...@@ -256,18 +256,18 @@ addToCorpusWithForm cid (WithForm _ft d) logStatus = do ...@@ -256,18 +256,18 @@ addToCorpusWithForm cid (WithForm _ft d) logStatus = do
    $ take 10000 $ take 10000
    $ parseHal' (cs d) $ parseHal' (cs d)
    cid' <- flowCorpus "user1" (Right [cid]) (Multi EN) (map (map toHyperdataDocument) docs) logStatus ScraperStatus { _scst_succeeded = Just 1
    printDebug "cid'" cid' , _scst_failed = Just 0
    , _scst_remaining = Just 1
    logStatus ScraperStatus { _scst_succeeded = Just 10
    , _scst_failed = Just 2
    , _scst_remaining = Just 138
    , _scst_events = Just [] , _scst_events = Just []
    } }
    pure ScraperStatus { _scst_succeeded = Just 137 cid' <- flowCorpus "user1" (Right [cid]) (Multi EN) (map (map toHyperdataDocument) docs)
    , _scst_failed = Just 13 printDebug "cid'" cid'
    , _scst_remaining = Just 0
    pure ScraperStatus { _scst_succeeded = Just 2
    , _scst_failed = Just 0
    , _scst_remaining = Just 1
    , _scst_events = Just [] , _scst_events = Just []
    } }
    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