From 7a305b6460898a8d31aa1a1c5f376cc7a56bfff1 Mon Sep 17 00:00:00 2001 From: Denis Tereshkin Date: Mon, 24 Apr 2023 12:45:55 +0700 Subject: [PATCH] Fix logging severity filter --- src/Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Main.hs b/src/Main.hs index a2677b3..2216b0b 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -35,7 +35,7 @@ import qualified TXMLConnector as Connector import Version (transaqConnectorVersionText) mkLogger :: (MonadIO m) => Handle -> Severity -> LogAction m Message -mkLogger h sev = cfilter (\m -> msgSeverity m > sev) (fmtMessage >$< (logTextStdout <> logTextHandle h)) +mkLogger h sev = cfilter (\m -> msgSeverity m >= sev) (fmtMessage >$< (logTextStdout <> logTextHandle h)) parseLoglevel :: Int -> Severity parseLoglevel 0 = Error