summaryrefslogtreecommitdiff
path: root/bragi
diff options
context:
space:
mode:
Diffstat (limited to 'bragi')
-rw-r--r--bragi/thermoprint-server/thermoprint-server.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/bragi/thermoprint-server/thermoprint-server.hs b/bragi/thermoprint-server/thermoprint-server.hs
index 5818ea4a..84d13ef1 100644
--- a/bragi/thermoprint-server/thermoprint-server.hs
+++ b/bragi/thermoprint-server/thermoprint-server.hs
@@ -20,7 +20,7 @@ import qualified Network.Wai.Handler.Warp as Warp
20type ServerM = ReaderT ConnectionPool (LoggingT IO) 20type ServerM = ReaderT ConnectionPool (LoggingT IO)
21 21
22main :: IO () 22main :: IO ()
23main = thermoprintServer True (Nat runDb) $ configure <$> def `withPrinters` printers' 23main = thermoprintServer True (NT runDb) $ configure <$> def `withPrinters` printers'
24 where 24 where
25 runDb :: ServerM a -> IO a 25 runDb :: ServerM a -> IO a
26 runDb = runStderrLoggingT . filterLogger (\_ lvl -> lvl >= LevelInfo) . withPostgresqlPool "" 5 . runReaderT 26 runDb = runStderrLoggingT . filterLogger (\_ lvl -> lvl >= LevelInfo) . withPostgresqlPool "" 5 . runReaderT