[HAL] fix for flow error reporting

2ccb3a39 · Przemyslaw Kaminski · 0faeb112 · 2ccb3a39
Commit 2ccb3a39 authored Apr 13, 2022 by Przemyslaw Kaminski
Hide whitespace changes
Inline Side-by-side

Showing with 8 additions and 6 deletions

New.hs src/Gargantext/API/Node/Corpus/New.hs +8 -6

No files found.
--- a/src/Gargantext/API/Node/Corpus/New.hs
+++ b/src/Gargantext/API/Node/Corpus/New.hs
@@ -245,12 +245,14 @@ addToCorpusWithQuery user cid (WithQuery { _wq_query = q
        (err:_) -> do
          printDebug "Error: " err
-          pure $ addEvent "ERROR" (T.pack $ show err) $
+          let jl = addEvent "ERROR" (T.pack $ show err) $
-            JobLog { _scst_succeeded = Just 2
+                JobLog { _scst_succeeded = Just 2
-                   , _scst_failed    = Just 1
+                       , _scst_failed    = Just 1
-                   , _scst_remaining = Just 0
+                       , _scst_remaining = Just 0
-                   , _scst_events    = Just []
+                       , _scst_events    = Just []
-                   }
+                       }
+          logStatus jl
+          pure jl
 type AddWithForm = Summary "Add with FormUrlEncoded to corpus endpoint"