From 31135ab11ba1133f723200003bf21d47f5a4d03e Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Tue, 29 Oct 2024 01:43:01 +0100
Subject: universum's microlens exports are deprecated

unfortunately, there seems to be no better way than hiding them
manually, so this code will still break once they remove them.
---
 server/HtmlOrphans.hs | 44 +++++++++++++++++++++++---------------------
 1 file changed, 23 insertions(+), 21 deletions(-)

(limited to 'server/HtmlOrphans.hs')

diff --git a/server/HtmlOrphans.hs b/server/HtmlOrphans.hs
index a8a355c..783c7c6 100644
--- a/server/HtmlOrphans.hs
+++ b/server/HtmlOrphans.hs
@@ -12,27 +12,29 @@
 -- linter results as html
 module HtmlOrphans () where
 
-import           Universum
-
-import           CheckDir        (DirResult (..), MissingAsset (MissingAsset),
-                                  MissingDep (..), maximumLintLevel)
-import           CheckMap        (MapResult (..))
-import           Data.List.Extra (escapeJSON)
-import qualified Data.Map        as M
-import qualified Data.Text       as T
-import           Handlers        (AdminOverview (..))
-import           Lucid           (HtmlT, ToHtml)
-import           Lucid.Base      (ToHtml (toHtml))
-import           Lucid.Html5     (a_, body_, button_, class_, code_, disabled_,
-                                  div_, em_, h1_, h2_, h3_, h4_, head_, href_,
-                                  html_, id_, li_, link_, main_, onclick_, p_,
-                                  rel_, script_, span_, src_, title_, type_,
-                                  ul_)
-import           Server          (JobStatus (..),
-                                  Org (Org, orgBacklinkPrefix, orgContactMail, orgHowtoLink, orgSlug),
-                                  RemoteRef (RemoteRef, reponame, reporef, repourl),
-                                  prettySha, unState)
-import           Types           (Hint (Hint), Level (..))
+import           Universum           hiding (view)
+
+import           CheckDir            (DirResult (..),
+                                      MissingAsset (MissingAsset),
+                                      MissingDep (..), maximumLintLevel)
+import           CheckMap            (MapResult (..))
+import           Data.List.Extra     (escapeJSON)
+import qualified Data.Map            as M
+import qualified Data.Text           as T
+import           Handlers            (AdminOverview (..))
+import           Lens.Micro.Platform (view)
+import           Lucid               (HtmlT, ToHtml)
+import           Lucid.Base          (ToHtml (toHtml))
+import           Lucid.Html5         (a_, body_, button_, class_, code_,
+                                      disabled_, div_, em_, h1_, h2_, h3_, h4_,
+                                      head_, href_, html_, id_, li_, link_,
+                                      main_, onclick_, p_, rel_, script_, span_,
+                                      src_, title_, type_, ul_)
+import           Server              (JobStatus (..),
+                                      Org (Org, orgBacklinkPrefix, orgContactMail, orgHowtoLink, orgSlug),
+                                      RemoteRef (RemoteRef, reponame, reporef, repourl),
+                                      prettySha, unState)
+import           Types               (Hint (Hint), Level (..))
 
 
 import           Fmt
-- 
cgit v1.2.3