@@ -89,7 +89,9 @@ mkRequestLogger RequestLoggerSettings{..} = do
89 getdate <- getDateGetter flusher
89 getdate <- getDateGetter flusher
90 apache <- initLogger ipsrc (LogCallback callback (return ())) getdate
90 apache <- initLogger ipsrc (LogCallback callback (return ())) getdate
91 return $ apacheMiddleware apache
91 return $ apacheMiddleware apache
92− Detailed useColors -> detailedMiddleware callback useColors
92+ Detailed useColors -> detailedMiddleware
93+ (\str -> callback str >> flusher)
93 CustomOutputFormat formatter -> do
95 CustomOutputFormat formatter -> do
94 getdate <- getDateGetter flusher
96 getdate <- getDateGetter flusher
95 return $ customMiddleware callback getdate formatter
97 return $ customMiddleware callback getdate formatter