aboutsummaryrefslogtreecommitdiff
path: root/server/default-conf
diff options
context:
space:
mode:
Diffstat (limited to 'server/default-conf')
-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 0fba774..982f50e 100644
--- a/server/default-conf/Main.hs
+++ b/server/default-conf/Main.hs
@@ -17,7 +17,7 @@ main :: IO ()
17main = thermoprintServer (Nat runSqlite) $ def `withPrinters` printers 17main = thermoprintServer (Nat runSqlite) $ def `withPrinters` printers
18 where 18 where
19 runSqlite :: ReaderT ConnectionPool (LoggingT IO) a -> IO a 19 runSqlite :: ReaderT ConnectionPool (LoggingT IO) a -> IO a
20 runSqlite = runStderrLoggingT . withSqlitePool ":memory:" 1 . runReaderT 20 runSqlite = runStderrLoggingT . withSqlitePool "thermoprint.sqlite" 1 . runReaderT
21 21
22 printers = [ PS Debug 22 printers = [ PS Debug
23 ] 23 ]