@@ -7,7 +7,7 @@ module Network.Wai.Middleware.RequestLogger
77 , logStdoutDev
88 -- * Create more versions
99 , mkRequestLogger
10− , RequestLoggerSettings
10+ , RequestLoggerSettings (..)
1111 , outputFormat
1212 , autoFlush
1313 , destination
@@ -81,12 +81,16 @@ data RequestLoggerSettings = RequestLoggerSettings
8181 , destination :: Destination
8282 }
8383
84+defaultRequestLoggerSettings :: RequestLoggerSettings
85+defaultRequestLoggerSettings =
86+ RequestLoggerSettings
87+ { outputFormat = Detailed True
88+ , autoFlush = True
89+ , destination = Handle stdout
90+ }
91+
8492instance Default RequestLoggerSettings where
85− def = RequestLoggerSettings
86− { outputFormat = Detailed True
87− , autoFlush = True
88− , destination = Handle stdout
89− }
93+ def = defaultRequestLoggerSettings
9094
9195mkRequestLogger :: RequestLoggerSettings -> IO Middleware
9296mkRequestLogger RequestLoggerSettings{..} = do