diff options
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 |