Show cancelled jobs in queue page

This commit is contained in:
Eike Kettner
2021-04-11 01:01:32 +02:00
parent c07fd1e61d
commit 5f001b59e5
3 changed files with 22 additions and 0 deletions

View File

@ -38,6 +38,7 @@ type QueueView
| QueueWaiting
| QueueError
| QueueSuccess
| QueueCancelled
emptyModel : Model

View File

@ -39,6 +39,10 @@ viewSidebar texts visible _ _ model =
filterJobDetails model.state.completed "failed"
|> List.length
QueueCancelled ->
filterJobDetails model.state.completed "cancelled"
|> List.length
tabLink cls v icon label =
a
[ href "#"
@ -74,6 +78,7 @@ viewSidebar texts visible _ _ model =
, tabLink "ml-8" QueueWaiting "fa fa-clock" texts.waiting
, tabLink "ml-8" QueueError "fa fa-bolt" texts.errored
, tabLink "ml-8" QueueSuccess "fa fa-check" texts.success
, tabLink "ml-8" QueueCancelled "fa fa-times-circle" texts.cancelled
]
]
@ -151,6 +156,18 @@ viewContent texts _ _ model =
else
div [ class gridStyle ]
(List.map (renderInfoCard texts model) items)
QueueCancelled ->
let
items =
filterJobDetails model.state.completed "cancelled"
in
if List.isEmpty items then
message texts.noJobsCancelled
else
div [ class gridStyle ]
(List.map (renderInfoCard texts model) items)
]