add warning to MonadJobStatus

src/Gargantext/API/Admin/EnvTypes.hs

@@ -251,6 +251,12 @@ instance Jobs.MonadJobStatus (GargM Env err) where
 
   markComplete jh = updateJobProgress jh jobLogComplete
 
+  markWarning mb_msg jh =
+    updateJobProgress jh (\latest -> case mb_msg of
+                                       Nothing  -> jobLogFailTotal latest
+                                       Just msg -> jobLogFailTotalWithMessage msg latest
+                         )
+
   markFailed mb_msg jh =
     updateJobProgress jh (\latest -> case mb_msg of
                                        Nothing  -> jobLogFailTotal latest
@@ -328,6 +334,8 @@ instance Jobs.MonadJobStatus (GargM DevEnv err) where
 
   markComplete _ = pure ()
 
+  markWarning _ _ = pure ()
+
   markFailed _ _ = pure ()
 
   addMoreSteps _ _ = pure ()

src/Gargantext/API/Node/Corpus/New.hs

@@ -39,8 +39,8 @@ import Gargantext.Core (withDefaultLanguage, defaultLanguage)
 import Gargantext.Core.Config (gc_jobs, hasConfig)
 import Gargantext.Core.Config.Types (jc_max_docs_parsers)
 import Gargantext.Core.NodeStory (HasNodeStoryImmediateSaver, HasNodeArchiveStoryImmediateSaver, currentVersion, NgramsStatePatch')
-import Gargantext.Core.Text.Corpus.Parsers qualified as Parser (FileType(..), parseFormatC, _ParseFormatError)
 import Gargantext.Core.Text.Corpus.Query qualified as API
+import Gargantext.Core.Text.Corpus.Parsers qualified as Parser (FileType(..), parseFormatC, _ParseFormatError, ParseFormatError(..))
 import Gargantext.Core.Types.Individu (User(..))
 import Gargantext.Core.Utils.Prefix (unPrefix)
 import Gargantext.Database.Action.Flow (flowCorpus, getDataText, flowDataText, TermType(..){-, allDataOrigins-})
@@ -294,6 +294,8 @@ addToCorpusWithForm user cid nwf jobHandle = do
       -- printDebug "sending email" ("xxxxxxxxxxxxxxxxxxxxx" :: Text)
       -- TODO uncomment this
       --sendMail user
+      markWarning (Just (Parser.ParseFormatError {_ParseFormatError = T.pack "test"})) jobHandle
+      $(logLocM) WARNING $ T.pack $ "Warning in parsing"
 
       markComplete jobHandle
     Left parseErr -> do

src/Gargantext/Utils/Jobs/Monad.hs

@@ -224,6 +224,10 @@ class MonadJobStatus m where
   -- | Finish tracking a job by marking all the remaining steps as succeeded.
   markComplete :: JobHandle m -> m ()
 
+  -- | Finish tracking a job by marking all the remaining steps as failed. Attach an optional
+  -- message to the failure.
+  markWarning :: forall e. ToHumanFriendlyError e => Maybe e -> JobHandle m -> m ()
+
   -- | Finish tracking a job by marking all the remaining steps as failed. Attach an optional
   -- message to the failure.
   markFailed :: forall e. ToHumanFriendlyError e => Maybe e -> JobHandle m -> m ()