1 files changed, 1 insertions, 1 deletions

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))
                 ]