git.iko.soy/typeable/wai
on master help sign in
I don't like Data.Default, I like it less when I am obligated to use it
63816e8Chris Allen
wai-extra/Network/Wai/Middleware/RequestLogger.hs+10−6
compare with master
unifiedsplit
@@ -7,7 +7,7 @@ module Network.Wai.Middleware.RequestLogger
7 , logStdoutDev
7 , logStdoutDev
8 -- * Create more versions
8 -- * Create more versions
9 , mkRequestLogger
9 , mkRequestLogger
10− , RequestLoggerSettings
10+ , RequestLoggerSettings (..)
11 , outputFormat
11 , outputFormat
12 , autoFlush
12 , autoFlush
13 , destination
13 , destination
@@ -81,12 +81,16 @@ data RequestLoggerSettings = RequestLoggerSettings
81 , destination :: Destination
81 , destination :: Destination
82 }
82 }
83
83
84+defaultRequestLoggerSettings :: RequestLoggerSettings
85+defaultRequestLoggerSettings =
86+ RequestLoggerSettings
87+ { outputFormat = Detailed True
88+ , autoFlush = True
89+ , destination = Handle stdout
90+ }
91+
84instance Default RequestLoggerSettings where
92instance Default RequestLoggerSettings where
85− def = RequestLoggerSettings
93+ def = defaultRequestLoggerSettings
86− { outputFormat = Detailed True
87− , autoFlush = True
88− , destination = Handle stdout
89− }
90
94
91mkRequestLogger :: RequestLoggerSettings -> IO Middleware
95mkRequestLogger :: RequestLoggerSettings -> IO Middleware
92mkRequestLogger RequestLoggerSettings{..} = do
96mkRequestLogger RequestLoggerSettings{..} = do