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/src/Thermoprint/Server/Printer.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/src/Thermoprint/Server/Printer.hs')
-rw-r--r-- | server/src/Thermoprint/Server/Printer.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/server/src/Thermoprint/Server/Printer.hs b/server/src/Thermoprint/Server/Printer.hs index 722d4ed..ae0c6a0 100644 --- a/server/src/Thermoprint/Server/Printer.hs +++ b/server/src/Thermoprint/Server/Printer.hs | |||
@@ -50,7 +50,7 @@ import Data.Time.Clock | |||
50 | 50 | ||
51 | import Thermoprint.Server.Queue | 51 | import Thermoprint.Server.Queue |
52 | 52 | ||
53 | newtype PrinterMethod = PM { unPM :: forall m. (MonadResource m, MonadLogger m, MonadMask m) => Printout -> m (Maybe PrintingError) } | 53 | newtype PrinterMethod = PM { unPM :: forall m. (MonadResource m, MonadLogger m, MonadMask m, MonadUnliftIO m) => Printout -> m (Maybe PrintingError) } |
54 | 54 | ||
55 | data Printer = Printer | 55 | data Printer = Printer |
56 | { print :: PrinterMethod | 56 | { print :: PrinterMethod |
@@ -68,7 +68,7 @@ atomically' = liftIO . atomically | |||
68 | 68 | ||
69 | runPrinter :: ( MonadReader ConnectionPool m | 69 | runPrinter :: ( MonadReader ConnectionPool m |
70 | , MonadLogger m | 70 | , MonadLogger m |
71 | , MonadBaseControl IO m | 71 | , MonadUnliftIO m |
72 | , MonadResource m | 72 | , MonadResource m |
73 | , MonadMask m | 73 | , MonadMask m |
74 | ) => Printer -> m () | 74 | ) => Printer -> m () |
@@ -95,7 +95,7 @@ runPrinter Printer{..} = forever $ do | |||
95 | addToQueue :: ( MonadReader ConnectionPool m | 95 | addToQueue :: ( MonadReader ConnectionPool m |
96 | , MonadLogger m | 96 | , MonadLogger m |
97 | , MonadResource m | 97 | , MonadResource m |
98 | , MonadBaseControl IO m | 98 | , MonadUnliftIO m |
99 | ) => Printout -> Printer -> m JobId | 99 | ) => Printout -> Printer -> m JobId |
100 | addToQueue printout Printer{..} = do | 100 | addToQueue printout Printer{..} = do |
101 | jobId <- runSqlPool (insert $ Job printout) =<< ask | 101 | jobId <- runSqlPool (insert $ Job printout) =<< ask |