diff options
Diffstat (limited to 'server/default-conf')
-rw-r--r-- | server/default-conf/Main.hs | 2 |
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 () | |||
17 | main = thermoprintServer (Nat runSqlite) $ def `withPrinters` printers | 17 | main = 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 | ] |