diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2017-07-17 20:25:41 +0200 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2017-07-17 20:25:41 +0200 |
| commit | 54c39eb98c87c6afc8e68daa20d46a253107a79f (patch) | |
| tree | 2b8edfe661e2678affac936fef10a1d207d4e2e8 | |
| parent | 1c7617e664d19df7f89008a4e6fd91b3f292daf7 (diff) | |
| download | nixos-54c39eb98c87c6afc8e68daa20d46a253107a79f.tar nixos-54c39eb98c87c6afc8e68daa20d46a253107a79f.tar.gz nixos-54c39eb98c87c6afc8e68daa20d46a253107a79f.tar.bz2 nixos-54c39eb98c87c6afc8e68daa20d46a253107a79f.tar.xz nixos-54c39eb98c87c6afc8e68daa20d46a253107a79f.zip | |
Suppress debug
| -rw-r--r-- | bragi/thermoprint-server/thermoprint-server.hs | 2 |
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 () | |||
| 23 | main = thermoprintServer True (Nat runDb) $ configure <$> def `withPrinters` printers' | 23 | main = thermoprintServer True (Nat runDb) $ configure <$> def `withPrinters` printers' |
| 24 | where | 24 | where |
| 25 | runDb :: ServerM a -> IO a | 25 | runDb :: ServerM a -> IO a |
| 26 | runDb = runStderrLoggingT . withPostgresqlPool "" 5 . runReaderT | 26 | runDb = runStderrLoggingT . filterLogger (\_ lvl -> lvl >= LevelInfo) . withPostgresqlPool "" 5 . runReaderT |
| 27 | 27 | ||
| 28 | printers' = [ (pure $ genericPrint "/dev/usb/lp0", def :: QMConfig (ResourceT ServerM)) | 28 | printers' = [ (pure $ genericPrint "/dev/usb/lp0", def :: QMConfig (ResourceT ServerM)) |
| 29 | ] | 29 | ] |