From aad26b59c48c3fcce94f7200f908f81503a1d3f9 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Thu, 12 Apr 2018 15:13:13 +0200 Subject: thermoprint --- 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 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 type ServerM = ReaderT ConnectionPool (LoggingT IO) main :: IO () -main = thermoprintServer True (Nat runDb) $ configure <$> def `withPrinters` printers' +main = thermoprintServer True (NT runDb) $ configure <$> def `withPrinters` printers' where runDb :: ServerM a -> IO a runDb = runStderrLoggingT . filterLogger (\_ lvl -> lvl >= LevelInfo) . withPostgresqlPool "" 5 . runReaderT -- cgit v1.2.3