Fix logging severity filter

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