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.

1 files changed, 9 insertions, 9 deletions

diff --git a/server/Main.hs b/server/Main.hs
index 6431b3f..d082df7 100644
--- a/server/Main.hs
+++ b/server/Main.hs
@@ -7,12 +7,14 @@
 -- | simple server offering linting "as a service"
 module Main where
 
-import           Universum
+import           Universum                            hiding (view)
 
 import           Control.Concurrent                   (threadDelay)
 import           Control.Concurrent.Async             (async, link, waitEither_)
 import           Control.Concurrent.STM.TQueue        (TQueue, newTQueueIO,
                                                        writeTQueue)
+import           Control.Monad.Logger                 (logInfoN,
+                                                       runStdoutLoggingT)
 import qualified Data.Text                            as T
 import           Fmt                                  ((+|), (|+))
 import           Handlers                             (AdminOverview (AdminOverview),
@@ -20,6 +22,7 @@ import           Handlers                             (AdminOverview (AdminOverv
                                                        realtimeImpl, relintImpl,
                                                        stateImpl, statusImpl)
 import           HtmlOrphans                          ()
+import           Lens.Micro.Platform                  (view)
 import           Network.HTTP.Client                  (defaultManagerSettings,
                                                        newManager)
 import           Network.Wai.Handler.Warp             (defaultSettings,
@@ -34,6 +37,10 @@ import           Servant                              (Application, Capture,
                                                        Server, serve,
                                                        type (:<|>) (..),
                                                        type (:>))
+import           Servant.API                          (Header)
+import           Servant.API.WebSocket                (WebSocketPending)
+import           Servant.Client                       (ClientM, client,
+                                                       mkClientEnv, runClientM)
 import           Servant.HTML.Lucid                   (HTML)
 import           Servant.Server.StaticFiles           (serveDirectoryWebApp)
 import           Server                               (CliOptions (..),
@@ -43,15 +50,8 @@ import           Server                               (CliOptions (..),
                                                        exneuland, interval,
                                                        loadConfig, orgs, port,
                                                        token, verbose)
-import           Worker                               (Job (Job), linterThread)
-
-import           Control.Monad.Logger                 (logInfoN,
-                                                       runStdoutLoggingT)
-import           Servant.API                          (Header)
-import           Servant.API.WebSocket                (WebSocketPending)
-import           Servant.Client                       (ClientM, client,
-                                                       mkClientEnv, runClientM)
 import           WithCli                              (withCli)
+import           Worker                               (Job (Job), linterThread)
 
 type family PolyEndpoint method format payload where
   PolyEndpoint Get format payload =