@@ -79,21 +79,19 @@ instance Default RequestLoggerSettings where
7979
8080mkRequestLogger :: RequestLoggerSettings -> IO Middleware
8181mkRequestLogger RequestLoggerSettings{..} = do
82− callback <-
83− case destination of
84− Handle h -> return $ BS.hPutStr h . logToByteString
85− Logger l -> return $ \msg -> do
86− pushLogStr l msg
87− flushLogStr l
88− Callback c -> return c
82+ let (callback, flusher) =
83+ case destination of
84+ Handle h -> (BS.hPutStr h . logToByteString, return ())
85+ Logger l -> (pushLogStr l, flushLogStr l)
86+ Callback c -> (c, return ())
8987 case outputFormat of
9088 Apache ipsrc -> do
91− getdate <- getDateGetter
89+ getdate <- getDateGetter flusher
9290 apache <- initLogger ipsrc (LogCallback callback (return ())) getdate
9391 return $ apacheMiddleware apache
9492 Detailed useColors -> detailedMiddleware callback useColors
9593 CustomOutputFormat formatter -> do
96− getdate <- getDateGetter
94+ getdate <- getDateGetter flusher
9795 return $ customMiddleware callback getdate formatter
9896
9997apacheMiddleware :: ApacheLoggerActions -> Middleware