From b5b4b86427286002081f102d1e97baef9162851e Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Wed, 17 Feb 2016 22:08:36 +0000 Subject: concurrency & dyre fixes for server spec --- server/default-conf/Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'server/default-conf') 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 import Database.Persist.Sqlite main :: IO () -main = thermoprintServer (Nat runSqlite) $ def `withPrinters` printers +main = thermoprintServer True (Nat runSqlite) $ def `withPrinters` printers where runSqlite :: ReaderT ConnectionPool (LoggingT IO) a -> IO a runSqlite = runStderrLoggingT . withSqlitePool "thermoprint.sqlite" 1 . runReaderT -- cgit v1.2.3