@@ -93,7 +93,7 @@ mkRequestLogger RequestLoggerSettings{..} = do
9393 let (callback, flusher) =
9494 case destination of
9595 Handle h -> (BS.hPutStr h . logToByteString, when autoFlush (hFlush h))
96− Logger l -> (pushLogStr l, flushLogStr l)
96+ Logger l -> (pushLogStr l, when autoFlush (flushLogStr l))
9797 Callback c -> (c, return ())
9898 case outputFormat of
9999 Apache ipsrc -> do