Support events flagged as WARNING

src/Gargantext/Types.purs

@@ -840,6 +840,7 @@ derive newtype instance JSON.ReadForeign AsyncEvent
 
 asyncEventErrorMessage :: AsyncEvent -> Maybe String
 asyncEventErrorMessage (AsyncEvent { level: "ERROR", message }) = Just message
+asyncEventErrorMessage (AsyncEvent { level: "WARNING", message }) = Just message
 asyncEventErrorMessage _ = Nothing
 
 newtype AsyncTaskLog = AsyncTaskLog
@@ -877,7 +878,7 @@ asyncTaskLogIsFinished (AsyncTaskLog { remaining }) = remaining == 0
 asyncTaskLogIsError :: AsyncTaskLog -> Boolean
 asyncTaskLogIsError atl@(AsyncTaskLog { events }) =
   asyncTaskLogIsFinished atl
-    && (A.length $ A.filter (\(AsyncEvent { level }) -> level == "ERROR") events)
+    && (A.length $ A.filter (\(AsyncEvent { level }) -> level == "ERROR" || level == "WARNING") events)
     > 0
 
 -- New type tasks (async workers)