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)

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