Merge branch 'dev-async-progress-fix' of...

Merge branch 'dev-async-progress-fix' of ssh://gitlab.iscpif.fr:20022/gargantext/purescript-gargantext into dev-merge

src/Gargantext/Types.purs

@@ -472,7 +472,7 @@ asyncTaskTypePath GraphT = "async/"
 
 type AsyncTaskID = String
 
-data AsyncTaskStatus = Running | Failed | Finished | Killed
+data AsyncTaskStatus = Running | Pending | Received | Started | Failed | Finished | Killed
 derive instance genericAsyncTaskStatus :: Generic AsyncTaskStatus _
 derive instance eqAsyncTaskStatus :: Eq AsyncTaskStatus
 instance decodeJsonAsyncTaskStatus :: DecodeJson AsyncTaskStatus where
@@ -481,10 +481,13 @@ instance decodeJsonAsyncTaskStatus :: DecodeJson AsyncTaskStatus where
     pure $ readAsyncTaskStatus obj
 
 readAsyncTaskStatus :: String -> AsyncTaskStatus
-readAsyncTaskStatus "failed"   = Failed
-readAsyncTaskStatus "finished" = Finished
-readAsyncTaskStatus "killed"   = Killed
-readAsyncTaskStatus "running"  = Running
+readAsyncTaskStatus "IsFailure"  = Failed
+readAsyncTaskStatus "IsFinished" = Finished
+readAsyncTaskStatus "IsKilled"   = Killed
+readAsyncTaskStatus "IsPending"  = Pending
+readAsyncTaskStatus "IsReceived" = Received
+readAsyncTaskStatus "IsRunning"  = Running
+readAsyncTaskStatus "IsStarted"  = Started
 readAsyncTaskStatus _ = Running
 
 newtype AsyncTask = AsyncTask {