Add missing case for Job renderStatus

digitallyinduced · Oct 11, 2021 · 751598a · 751598a
1 parent 5f9f65a
commit 751598a
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/IHP/Job/Dashboard/View.hs b/IHP/Job/Dashboard/View.hs
@@ -55,6 +55,7 @@ renderStatus job = case get #status job of
     JobStatusFailed -> [hsx|<span class="badge badge-danger" title="Last Error" data-container="body" data-toggle="popover" data-placement="left" data-content={fromMaybe "" (get #lastError job)}>Failed</span>|]
     JobStatusSucceeded -> [hsx|<span class="badge badge-success">Succeeded</span>|]
     JobStatusRetry -> [hsx|<span class="badge badge-warning" title="Last Error" data-container="body" data-toggle="popover" data-placement="left" data-content={fromMaybe "" (get #lastError job)}>Retry</span>|]
+    JobStatusTimedOut -> [hsx|<span class="badge badge-danger" >Timed Out</span>|]
 
 -- BASE JOB VIEW HELPERS --------------------------------