Skip to content

P
purescript-gargantext
Commit 2abb6b73 authored by Przemyslaw Kaminski's avatar Przemyslaw Kaminski
Browse files
Options

[async] #131 fix async task status parsing

parent 1a4314d6
Hide whitespace changes
Inline Side-by-side
Showing with 8 additions and 5 deletions
src/Gargantext/Types.purs
View file @ 2abb6b73
...@@ -472,7 +472,7 @@ asyncTaskTypePath GraphT = "async/" ...@@ -472,7 +472,7 @@ asyncTaskTypePath GraphT = "async/"
type AsyncTaskID = String 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 genericAsyncTaskStatus :: Generic AsyncTaskStatus _
derive instance eqAsyncTaskStatus :: Eq AsyncTaskStatus derive instance eqAsyncTaskStatus :: Eq AsyncTaskStatus
instance decodeJsonAsyncTaskStatus :: DecodeJson AsyncTaskStatus where instance decodeJsonAsyncTaskStatus :: DecodeJson AsyncTaskStatus where
...@@ -481,10 +481,13 @@ instance decodeJsonAsyncTaskStatus :: DecodeJson AsyncTaskStatus where ...@@ -481,10 +481,13 @@ instance decodeJsonAsyncTaskStatus :: DecodeJson AsyncTaskStatus where
pure $ readAsyncTaskStatus obj pure $ readAsyncTaskStatus obj
readAsyncTaskStatus :: String -> AsyncTaskStatus readAsyncTaskStatus :: String -> AsyncTaskStatus
readAsyncTaskStatus "failed" = Failed readAsyncTaskStatus "IsFailure" = Failed
readAsyncTaskStatus "finished" = Finished readAsyncTaskStatus "IsFinished" = Finished
readAsyncTaskStatus "killed" = Killed readAsyncTaskStatus "IsKilled" = Killed
readAsyncTaskStatus "running" = Running readAsyncTaskStatus "IsPending" = Pending
readAsyncTaskStatus "IsReceived" = Received
readAsyncTaskStatus "IsRunning" = Running
readAsyncTaskStatus "IsStarted" = Started
readAsyncTaskStatus _ = Running readAsyncTaskStatus _ = Running
newtype AsyncTask = AsyncTask { newtype AsyncTask = AsyncTask {
......
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