diff options
| author | Gregor Kleen <pngwjpgh@users.noreply.github.com> | 2016-07-17 19:21:56 +0200 |
|---|---|---|
| committer | Gregor Kleen <pngwjpgh@users.noreply.github.com> | 2016-07-17 19:21:56 +0200 |
| commit | 2b9ceaead3f3cd80e973cccecb9a3eebc51154f7 (patch) | |
| tree | df2378943480647606b6a06f62c0f4b8b2ab406d /server/default-conf | |
| parent | ac4cf4a0a494eafe55364f816569c517684fdf32 (diff) | |
| download | thermoprint-2b9ceaead3f3cd80e973cccecb9a3eebc51154f7.tar thermoprint-2b9ceaead3f3cd80e973cccecb9a3eebc51154f7.tar.gz thermoprint-2b9ceaead3f3cd80e973cccecb9a3eebc51154f7.tar.bz2 thermoprint-2b9ceaead3f3cd80e973cccecb9a3eebc51154f7.tar.xz thermoprint-2b9ceaead3f3cd80e973cccecb9a3eebc51154f7.zip | |
Fixes for GHC 8.0.1
Diffstat (limited to 'server/default-conf')
| -rw-r--r-- | server/default-conf/Main.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/server/default-conf/Main.hs b/server/default-conf/Main.hs index 7c4bfc7..35088e8 100644 --- a/server/default-conf/Main.hs +++ b/server/default-conf/Main.hs | |||
| @@ -20,6 +20,10 @@ main = thermoprintServer True (Nat runSqlite) $ def `withPrinters` printers | |||
| 20 | runSqlite :: ReaderT ConnectionPool (LoggingT IO) a -> IO a | 20 | runSqlite :: ReaderT ConnectionPool (LoggingT IO) a -> IO a |
| 21 | runSqlite = runStderrLoggingT . withSqlitePool "thermoprint.sqlite" 1 . runReaderT | 21 | runSqlite = runStderrLoggingT . withSqlitePool "thermoprint.sqlite" 1 . runReaderT |
| 22 | 22 | ||
| 23 | printers :: [( ResourceT (ReaderT ConnectionPool (LoggingT IO)) PrinterMethod | ||
| 24 | , QMConfig (ResourceT (ReaderT ConnectionPool (LoggingT IO))) | ||
| 25 | ) | ||
| 26 | ] | ||
| 23 | printers = [ (pure debugPrint, def) | 27 | printers = [ (pure debugPrint, def) |
| 24 | , (pure $ delayedDebugPrint (10 * 10^6), def) | 28 | , (pure $ delayedDebugPrint (10 * 10^6), def) |
| 25 | ] | 29 | ] |