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