refactor: hlint

This commit is contained in:
Gregor Kleen 2020-02-19 14:01:55 +01:00
parent bec40236db
commit 71683f1b05

View File

@ -298,8 +298,6 @@ makeApplication foundation = liftIO $ do
-- Create the WAI application and apply middlewares
appPlain <- toWaiAppPlain foundation
return . observeHTTPRequestLatency classifyHandler . logWare $ defaultMiddlewaresNoLogging appPlain
where
makeLogWare :: MonadIO m => UniWorX -> m Middleware
makeLogWare app = do