aboutsummaryrefslogtreecommitdiff
path: root/server/default-conf/Main.hs
diff options
context:
space:
mode:
Diffstat (limited to 'server/default-conf/Main.hs')
-rw-r--r--server/default-conf/Main.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/server/default-conf/Main.hs b/server/default-conf/Main.hs
index 35088e8..6ea0ef7 100644
--- a/server/default-conf/Main.hs
+++ b/server/default-conf/Main.hs
@@ -15,7 +15,7 @@ import Control.Monad.Reader
15import Database.Persist.Sqlite 15import Database.Persist.Sqlite
16 16
17main :: IO () 17main :: IO ()
18main = thermoprintServer True (Nat runSqlite) $ def `withPrinters` printers 18main = thermoprintServer True (NT runSqlite) $ def `withPrinters` printers
19 where 19 where
20 runSqlite :: ReaderT ConnectionPool (LoggingT IO) a -> IO a 20 runSqlite :: ReaderT ConnectionPool (LoggingT IO) a -> IO a
21 runSqlite = runStderrLoggingT . withSqlitePool "thermoprint.sqlite" 1 . runReaderT 21 runSqlite = runStderrLoggingT . withSqlitePool "thermoprint.sqlite" 1 . runReaderT