aboutsummaryrefslogtreecommitdiff
path: root/server/default-conf
diff options
context:
space:
mode:
Diffstat (limited to 'server/default-conf')
-rw-r--r--server/default-conf/Main.hs4
1 files changed, 4 insertions, 0 deletions
diff --git a/server/default-conf/Main.hs b/server/default-conf/Main.hs
index 7c4bfc7..35088e8 100644
--- a/server/default-conf/Main.hs
+++ b/server/default-conf/Main.hs
@@ -20,6 +20,10 @@ main = thermoprintServer True (Nat runSqlite) $ def `withPrinters` printers
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
22 22
23 printers :: [( ResourceT (ReaderT ConnectionPool (LoggingT IO)) PrinterMethod
24 , QMConfig (ResourceT (ReaderT ConnectionPool (LoggingT IO)))
25 )
26 ]
23 printers = [ (pure debugPrint, def) 27 printers = [ (pure debugPrint, def)
24 , (pure $ delayedDebugPrint (10 * 10^6), def) 28 , (pure $ delayedDebugPrint (10 * 10^6), def)
25 ] 29 ]