diff --git a/Application.hs b/Application.hs index f3e177a..de00289 100644 --- a/Application.hs +++ b/Application.hs @@ -53,7 +53,7 @@ makeApplication conf = do } -- Create the WAI application and apply middlewares - app <- toWaiAppPlain foundation + app <- toWaiApp foundation let logFunc = messageLoggerSource foundation (appLogger foundation) return (logWare app, logFunc)