diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2018-04-12 14:34:05 +0200 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2018-04-12 15:12:11 +0200 |
| commit | e8e0cb7f36641ffb7901178bc54fef98eba9215c (patch) | |
| tree | 2c51a3d2f98232fae2cdedb8b96368802b125411 /server/default-conf/Main.hs | |
| parent | 2ab4ee48a15da128536b27c77a224c08cd2e9b78 (diff) | |
| download | thermoprint-e8e0cb7f36641ffb7901178bc54fef98eba9215c.tar thermoprint-e8e0cb7f36641ffb7901178bc54fef98eba9215c.tar.gz thermoprint-e8e0cb7f36641ffb7901178bc54fef98eba9215c.tar.bz2 thermoprint-e8e0cb7f36641ffb7901178bc54fef98eba9215c.tar.xz thermoprint-e8e0cb7f36641ffb7901178bc54fef98eba9215c.zip | |
Fix build
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 35088e8..6ea0ef7 100644 --- a/server/default-conf/Main.hs +++ b/server/default-conf/Main.hs | |||
| @@ -15,7 +15,7 @@ import Control.Monad.Reader | |||
| 15 | import Database.Persist.Sqlite | 15 | import Database.Persist.Sqlite |
| 16 | 16 | ||
| 17 | main :: IO () | 17 | main :: IO () |
| 18 | main = thermoprintServer True (Nat runSqlite) $ def `withPrinters` printers | 18 | main = thermoprintServer True (NT runSqlite) $ def `withPrinters` printers |
| 19 | where | 19 | where |
| 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 |