Skip to content

Fixed Imports that needs to be qualified. #21

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
merged 1 commit into from
Mar 18, 2020
Merged

Fixed Imports that needs to be qualified. #21

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
18 changes: 9 additions & 9 deletions src/Demo.hs
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -4,15 +4,15 @@

module Demo where

import Control.Exception.Safe as E
import qualified Control.Exception.Safe as E
import Control.Exception.Safe ( MonadCatch
, MonadMask
, MonadThrow
)
import Control.Monad.IO.Class ( MonadIO
, liftIO
)
import Control.Monad.Logger as L
import qualified Control.Monad.Logger as L
import Control.Monad.Logger ( LoggingT
, MonadLogger
)
Expand All @@ -29,12 +29,12 @@ import Data.Default.Class ( Default
)
import Data.IP ( IP )
import Data.String ( fromString )
import Network.HTTP.Types as HTTP
import Network.HTTP.Types.Header as HTTPHeaders
import qualified Network.HTTP.Types as HTTP
import qualified Network.HTTP.Types.Header as HTTPHeaders
import Network.Socket ( PortNumber )
import Network.Wai ( Application )
import Network.Wai as Wai
import Network.Wai.Handler.Warp as Warp
import qualified Network.Wai as Wai
import qualified Network.Wai.Handler.Warp as Warp
import System.Environment ( lookupEnv )


Expand Down Expand Up @@ -63,12 +63,12 @@ type Demo = DemoT IO

runDemo :: DemoEnv -> Demo a -> IO a
runDemo env demo = do
runStderrLoggingT $ runReaderT (runDemoT demo) env
L.runStderrLoggingT $ runReaderT (runDemoT demo) env

warpApp :: Application
warpApp req respond = E.bracket_
(runStderrLoggingT ($(L.logInfo) "Try IO Block"))
(runStderrLoggingT ($(L.logInfo) "Clean IO Block"))
(L.runStderrLoggingT ($(L.logInfo) "Try IO Block"))
(L.runStderrLoggingT ($(L.logInfo) "Clean IO Block"))
(respond $ Wai.responseLBS HTTP.status200
[(HTTPHeaders.hContentType, "text/plain")]
"Hello from Demo!\n"
Expand Down