@@ -89,7 +89,9 @@ mkRequestLogger RequestLoggerSettings{..} = do
8989 getdate <- getDateGetter flusher
9090 apache <- initLogger ipsrc (LogCallback callback (return ())) getdate
9191 return $ apacheMiddleware apache
92− Detailed useColors -> detailedMiddleware callback useColors
92+ Detailed useColors -> detailedMiddleware
93+ (\str -> callback str >> flusher)
94+ useColors
9395 CustomOutputFormat formatter -> do
9496 getdate <- getDateGetter flusher
9597 return $ customMiddleware callback getdate formatter