@@ -82,7 +82,9 @@ mkRequestLogger RequestLoggerSettings{..} = do
82 callback <-
82 callback <-
83 case destination of
83 case destination of
84 Handle h -> return $ BS.hPutStr h . logToByteString
84 Handle h -> return $ BS.hPutStr h . logToByteString
85− Logger l -> return $ pushLogStr l
85+ Logger l -> return $ \msg -> do
86 Callback c -> return c
88 Callback c -> return c
87 case outputFormat of
89 case outputFormat of
88 Apache ipsrc -> do
90 Apache ipsrc -> do