diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2016-02-17 22:08:36 +0000 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2016-02-17 22:08:36 +0000 |
| commit | b5b4b86427286002081f102d1e97baef9162851e (patch) | |
| tree | 5d3eeef8abc884931756dd3f9711c355f4a88a4e /server/default-conf | |
| parent | eebc709302833932d7fca95dfc5c8536f8911e69 (diff) | |
| download | thermoprint-b5b4b86427286002081f102d1e97baef9162851e.tar thermoprint-b5b4b86427286002081f102d1e97baef9162851e.tar.gz thermoprint-b5b4b86427286002081f102d1e97baef9162851e.tar.bz2 thermoprint-b5b4b86427286002081f102d1e97baef9162851e.tar.xz thermoprint-b5b4b86427286002081f102d1e97baef9162851e.zip | |
concurrency & dyre fixes for server spec
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 36f6c12..cbfc476 100644 --- a/server/default-conf/Main.hs +++ b/server/default-conf/Main.hs | |||
| @@ -14,7 +14,7 @@ import Control.Monad.Reader | |||
| 14 | import Database.Persist.Sqlite | 14 | import Database.Persist.Sqlite |
| 15 | 15 | ||
| 16 | main :: IO () | 16 | main :: IO () |
| 17 | main = thermoprintServer (Nat runSqlite) $ def `withPrinters` printers | 17 | main = thermoprintServer True (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 "thermoprint.sqlite" 1 . runReaderT | 20 | runSqlite = runStderrLoggingT . withSqlitePool "thermoprint.sqlite" 1 . runReaderT |