From 71683f1b0589c1443e0a8a987904f366bf3eeb08 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Wed, 19 Feb 2020 14:01:55 +0100 Subject: [PATCH] refactor: hlint --- src/Application.hs | 2 -- 1 file changed, 2 deletions(-) diff --git a/src/Application.hs b/src/Application.hs index 0da706a22..83a229d82 100644 --- a/src/Application.hs +++ b/src/Application.hs @@ -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