diff options
Diffstat (limited to '')
-rw-r--r-- | server/HtmlOrphans.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/server/HtmlOrphans.hs b/server/HtmlOrphans.hs index aec6fe2..412961b 100644 --- a/server/HtmlOrphans.hs +++ b/server/HtmlOrphans.hs @@ -97,7 +97,7 @@ instance ToHtml AdminOverview where forM_ (view unState state) $ \(org, jobs) -> do h2_ (toHtml $ orgSlug org) if null jobs then em_ "(nothing yet)" - else flip M.foldMapWithKey jobs $ \sha1 (ref, status) -> li_ $ do + else flip M.foldMapWithKey jobs $ \sha1 (ref, status, _lastvalid) -> li_ $ do case status of Pending _ -> badge Info "pending" (Linted res rev _) -> toHtml $ maximumLintLevel res |