Fix strict build errors

MatrixAI · Aug 21, 2020 · 7bb67e5 · 7bb67e5
1 parent 507ec51
commit 7bb67e5
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 16 deletions.
diff --git a/app/library/Main.hs b/app/library/Main.hs
@@ -2,9 +2,7 @@
 
 module Main where
 
-import           Control.Monad.IO.Class         ( MonadIO
-                                                , liftIO
-                                                )
+import           Control.Monad.IO.Class         ( liftIO )
 import           Control.Monad.Logger          as L
 import qualified Data.Text                     as T
 

diff --git a/src/Demo.hs b/src/Demo.hs
@@ -6,7 +6,6 @@ module Demo where
 
 import qualified Control.Exception.Safe        as E
 import           Control.Exception.Safe         ( MonadCatch
-                                                , MonadMask
                                                 , MonadThrow
                                                 )
 import           Control.Monad.IO.Class         ( MonadIO
@@ -21,9 +20,6 @@ import           Control.Monad.Reader           ( MonadReader
                                                 , ask
                                                 , runReaderT
                                                 )
-import           Control.Monad.Trans.Class      ( MonadTrans
-                                                , lift
-                                                )
 import           Data.Default.Class             ( Default
                                                 , def
                                                 )
@@ -66,7 +62,7 @@ runDemo env demo = do
   L.runStderrLoggingT $ runReaderT (runDemoT demo) env
 
 warpApp :: Application
-warpApp req respond = E.bracket_
+warpApp _req respond = E.bracket_
   (L.runStderrLoggingT ($(L.logInfo) "Try IO Block"))
   (L.runStderrLoggingT ($(L.logInfo) "Clean IO Block"))
   (respond $ Wai.responseLBS HTTP.status200
@@ -91,12 +87,12 @@ runDemoApp = do
   demoHost <- lookupEnv "DEMO_HOST"
   demoPort <- lookupEnv "DEMO_PORT"
   let defaultEnv = def :: DemoEnv
-  defaultEnv <- return $ maybe
+  defaultEnv' <- return $ maybe
     defaultEnv
     (\host -> defaultEnv { demoEnvHost = read host })
     demoHost
-  defaultEnv <- return $ maybe
-    defaultEnv
-    (\port -> defaultEnv { demoEnvPort = read port })
+  defaultEnv'' <- return $ maybe
+    defaultEnv'
+    (\port -> defaultEnv' { demoEnvPort = read port })
     demoPort
-  runDemo defaultEnv demoApp
+  runDemo defaultEnv'' demoApp
diff --git a/src/Library.hs b/src/Library.hs
@@ -4,9 +4,6 @@
 
 module Library where
 
-import           Control.Monad.IO.Class         ( MonadIO
-                                                , liftIO
-                                                )
 import           Control.Monad.Logger          as L
 import           Control.Monad.Logger           ( LoggingT
                                                 , MonadLogger