diff options
| author | stuebinm | 2022-02-16 16:57:49 +0100 |
|---|---|---|
| committer | stuebinm | 2022-03-19 19:26:32 +0100 |
| commit | ff8eeb131db9e9a0d9d3cef60ddcaa83692fb62c (patch) | |
| tree | 8cbb1bad563bd545929b083447e9a11d1a60648d /server/HtmlOrphans.hs | |
| parent | 410151c85b1e6c7629934e0ef0bc199d92da64e9 (diff) | |
server: add mapservice GET endpoint
Diffstat (limited to 'server/HtmlOrphans.hs')
| -rw-r--r-- | server/HtmlOrphans.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/server/HtmlOrphans.hs b/server/HtmlOrphans.hs index 0472f24..c9fa852 100644 --- a/server/HtmlOrphans.hs +++ b/server/HtmlOrphans.hs @@ -52,7 +52,7 @@ instance ToHtml JobStatus where Pending -> do h1_ "Pending …" p_ "(please note that this site won't auto-reload, you'll have to refresh it yourself)" - Linted res -> do + Linted res _rev -> do h1_ "Linter Result" toHtml res Failed err -> do @@ -68,9 +68,9 @@ instance ToHtml AdminOverview where if null jobs then em_ "(nothing yet)" else flip M.foldMapWithKey jobs $ \sha1 (ref, status) -> li_ $ do case status of - Pending -> badge Info "pending" - (Linted res) -> toHtml $ maximumLintLevel res - (Failed _) -> badge Error "system error" + Pending -> badge Info "pending" + (Linted res rev) -> toHtml $ maximumLintLevel res + (Failed _) -> badge Error "system error" " "; a_ [href_ ("/status/"+|orgSlug org|+"/"+|prettySha sha1|+"/")] $ do mono $ toHtml $ reporef ref; " on "; mono $ toHtml $ repourl ref |