From 52bf0fa6dace596a4bd5b4e4229fbb9704fbf443 Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Fri, 18 Feb 2022 18:09:23 +0100
Subject: switch to universum prelude

also don't keep adjusted maps around if not necessary
---
 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 ebe65aa..9b09f1d 100644
--- a/server/HtmlOrphans.hs
+++ b/server/HtmlOrphans.hs
@@ -108,7 +108,7 @@ headerText = \case
 
 
 -- | The fully monky
-instance ToHtml DirResult where
+instance ToHtml (DirResult a) where
   toHtml res@DirResult { .. } = do
 
     p_ $ do badge maxlevel "Linted:"; " "; headerText maxlevel
-- 
cgit v1.2.3