diff options
Diffstat (limited to 'server/src/Thermoprint/Server/Printer.hs')
-rw-r--r-- | server/src/Thermoprint/Server/Printer.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/server/src/Thermoprint/Server/Printer.hs b/server/src/Thermoprint/Server/Printer.hs index 3700f45..d9cea9d 100644 --- a/server/src/Thermoprint/Server/Printer.hs +++ b/server/src/Thermoprint/Server/Printer.hs | |||
@@ -56,6 +56,9 @@ data Printer = Printer | |||
56 | , queue :: TVar Queue | 56 | , queue :: TVar Queue |
57 | } | 57 | } |
58 | 58 | ||
59 | instance HasQueue Printer where | ||
60 | extractQueue = queue | ||
61 | |||
59 | printer :: MonadResource m => m PrinterMethod -> m Printer | 62 | printer :: MonadResource m => m PrinterMethod -> m Printer |
60 | printer p = Printer <$> p <*> liftIO (newTVarIO def) | 63 | printer p = Printer <$> p <*> liftIO (newTVarIO def) |
61 | 64 | ||