Use flusher for Apache outputFormat
commitd28375e0698541afca19d82ad55658e2c7c38204
authorMHova <mho@sumall.com>
dateMon 16 Nov 2015, 21:58 (11 years ago)
parent5548e7f
wai-extra/Network/Wai/Middleware/RequestLogger.hs+1−1
@@ -98,7 +98,7 @@ mkRequestLogger RequestLoggerSettings{..} = do
9898 case outputFormat of
9999 Apache ipsrc -> do
100100 getdate <- getDateGetter flusher
101− apache <- initLogger ipsrc (LogCallback callback (return ())) getdate
101+ apache <- initLogger ipsrc (LogCallback callback flusher) getdate
102102 return $ apacheMiddleware apache
103103 Detailed useColors -> detailedMiddleware
104104 (\str -> callback str >> flusher)