diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2016-01-24 16:25:36 +0000 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2016-01-24 16:25:36 +0000 |
| commit | 43834209c92085f6567f2e1b0eed8eed1fac9ad7 (patch) | |
| tree | 79ca0dab4c4cf4545ce8e97637f3748f795eb8d5 | |
| parent | c3a6d0657eb2987aa13b53419269274d848d9e0c (diff) | |
| download | thermoprint-43834209c92085f6567f2e1b0eed8eed1fac9ad7.tar thermoprint-43834209c92085f6567f2e1b0eed8eed1fac9ad7.tar.gz thermoprint-43834209c92085f6567f2e1b0eed8eed1fac9ad7.tar.bz2 thermoprint-43834209c92085f6567f2e1b0eed8eed1fac9ad7.tar.xz thermoprint-43834209c92085f6567f2e1b0eed8eed1fac9ad7.zip | |
testing against :memory: didn't work
because of thread shenanigans
| -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 | ] |