diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2016-02-25 17:56:21 +0000 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2016-02-25 17:56:21 +0000 |
| commit | 4d7ecb10ada3115da14fb7baefe9cb1b510bb6ae (patch) | |
| tree | b46b2b22ee73d76f419d87a23294d8d982346eb7 /server/default-conf | |
| parent | f515803694d7f8430b064f16a5a923b09ba70650 (diff) | |
| download | thermoprint-4d7ecb10ada3115da14fb7baefe9cb1b510bb6ae.tar thermoprint-4d7ecb10ada3115da14fb7baefe9cb1b510bb6ae.tar.gz thermoprint-4d7ecb10ada3115da14fb7baefe9cb1b510bb6ae.tar.bz2 thermoprint-4d7ecb10ada3115da14fb7baefe9cb1b510bb6ae.tar.xz thermoprint-4d7ecb10ada3115da14fb7baefe9cb1b510bb6ae.zip | |
delayed debugging printer
Diffstat (limited to 'server/default-conf')
| -rw-r--r-- | server/default-conf/Main.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/server/default-conf/Main.hs b/server/default-conf/Main.hs index cbfc476..f0b7f43 100644 --- a/server/default-conf/Main.hs +++ b/server/default-conf/Main.hs | |||
| @@ -20,4 +20,5 @@ main = thermoprintServer True (Nat runSqlite) $ def `withPrinters` printers | |||
| 20 | runSqlite = runStderrLoggingT . withSqlitePool "thermoprint.sqlite" 1 . runReaderT | 20 | runSqlite = runStderrLoggingT . withSqlitePool "thermoprint.sqlite" 1 . runReaderT |
| 21 | 21 | ||
| 22 | printers = [ (pure debugPrint, def) | 22 | printers = [ (pure debugPrint, def) |
| 23 | , (pure $ delayedDebugPrint (10 * 10^6), def) | ||
| 23 | ] | 24 | ] |