From f72855ea8ade8f94474618c5dacda8dd30171740 Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Sun, 20 Mar 2022 19:02:06 +0100
Subject: server: keep (one) last good result per repo

(i.e. we want to still have a valid version of the map if new results
where introduced)
---
 server/HtmlOrphans.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'server/HtmlOrphans.hs')

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
-- 
cgit v1.2.3