From 54c39eb98c87c6afc8e68daa20d46a253107a79f Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Mon, 17 Jul 2017 20:25:41 +0200 Subject: Suppress debug --- bragi/thermoprint-server/thermoprint-server.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'bragi') diff --git a/bragi/thermoprint-server/thermoprint-server.hs b/bragi/thermoprint-server/thermoprint-server.hs index 4635dd0a..5818ea4a 100644 --- a/bragi/thermoprint-server/thermoprint-server.hs +++ b/bragi/thermoprint-server/thermoprint-server.hs @@ -23,7 +23,7 @@ main :: IO () main = thermoprintServer True (Nat runDb) $ configure <$> def `withPrinters` printers' where runDb :: ServerM a -> IO a - runDb = runStderrLoggingT . withPostgresqlPool "" 5 . runReaderT + runDb = runStderrLoggingT . filterLogger (\_ lvl -> lvl >= LevelInfo) . withPostgresqlPool "" 5 . runReaderT printers' = [ (pure $ genericPrint "/dev/usb/lp0", def :: QMConfig (ResourceT ServerM)) ] -- cgit v1.2.3