diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2016-01-25 13:25:18 +0000 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2016-01-25 13:25:18 +0000 |
| commit | 9d9bad89241bfa14255361dd8452ad40291a9684 (patch) | |
| tree | 5e0f940724f060fb732c36e81217b10c5eb69229 /server/default-conf/Main.hs | |
| parent | 09f4d0431ef3015653b6b78f1d413454519380bd (diff) | |
| download | thermoprint-9d9bad89241bfa14255361dd8452ad40291a9684.tar thermoprint-9d9bad89241bfa14255361dd8452ad40291a9684.tar.gz thermoprint-9d9bad89241bfa14255361dd8452ad40291a9684.tar.bz2 thermoprint-9d9bad89241bfa14255361dd8452ad40291a9684.tar.xz thermoprint-9d9bad89241bfa14255361dd8452ad40291a9684.zip | |
Cleaned up printer declaration
Diffstat (limited to 'server/default-conf/Main.hs')
| -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 982f50e..39e500d 100644 --- a/server/default-conf/Main.hs +++ b/server/default-conf/Main.hs | |||
| @@ -19,5 +19,5 @@ main = thermoprintServer (Nat runSqlite) $ def `withPrinters` printers | |||
| 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 |
| 21 | 21 | ||
| 22 | printers = [ PS Debug | 22 | printers = [ pure debugPrint |
| 23 | ] | 23 | ] |