Remove redundant imports

src/MyLib.hs

@@ -17,18 +17,18 @@ import Data.Text qualified as T
 import Data.Text.Strict.Lens (utf8)
 import Katip qualified as K
 import M
+import Network.Wai.Handler.Warp (defaultSettings, runSettings, setPort)
 import Options.Generic (Generic, ParseRecord (..), getRecord, unDefValue, unHelpful, type (<!>), type (<?>))
 import Pipes (Pipe, for, lift, runEffect, (>->))
 import Pipes.Prelude qualified as P
+import Server (Health (..), app)
 import Text.Pandoc (PandocError, def, readHtml, runPure, writeMarkdown)
-import UnliftIO (MonadUnliftIO, liftIO, atomicModifyIORef')
+import UnliftIO (MonadUnliftIO, liftIO)
 import UnliftIO.Async (mapConcurrently_)
 import UnliftIO.Concurrent (threadDelay)
 import UnliftIO.Exception (displayException, isAsyncException)
+import UnliftIO.IORef (IORef, newIORef, writeIORef)
 import Wallabag
-import Network.Wai.Handler.Warp (setPort, setLogger, defaultSettings, runSettings)
-import Server (app, Health (..))
-import UnliftIO.IORef (newIORef, IORef, writeIORef)
 
 data Options
   = Quick {verbose :: Bool}
@@ -98,8 +98,8 @@ runDaemon diagnosticsPort credsPath sev = initialS (Just credsPath) sev $ \s ->
     reportError health e
       | isAsyncException e = throw e
       | otherwise = do
-        writeIORef health Degraded
-        K.logFM K.ErrorS $ K.ls $ displayException e
+          writeIORef health Degraded
+          K.logFM K.ErrorS $ K.ls $ displayException e
     handle :: (Exception e, MonadUnliftIO m) => (e -> m a) -> m a -> m a
     handle = flip catch