From d28375e0698541afca19d82ad55658e2c7c38204 Mon Sep 17 00:00:00 2001
From: MHova <mho@sumall.com>
Date: Mon, 16 Nov 2015 21:58:56 -0800
Subject: [PATCH] Use flusher for Apache outputFormat

---
 wai-extra/Network/Wai/Middleware/RequestLogger.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/wai-extra/Network/Wai/Middleware/RequestLogger.hs b/wai-extra/Network/Wai/Middleware/RequestLogger.hs
index 60c7fba9..dc1065cf 100644
--- a/wai-extra/Network/Wai/Middleware/RequestLogger.hs
+++ b/wai-extra/Network/Wai/Middleware/RequestLogger.hs
@@ -98,7 +98,7 @@ mkRequestLogger RequestLoggerSettings{..} = do
     case outputFormat of
         Apache ipsrc -> do
             getdate <- getDateGetter flusher
-            apache <- initLogger ipsrc (LogCallback callback (return ())) getdate
+            apache <- initLogger ipsrc (LogCallback callback flusher) getdate
             return $ apacheMiddleware apache
         Detailed useColors -> detailedMiddleware
                                   (\str -> callback str >> flusher)