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
   , queue :: TVar Queue
   }
 
+instance HasQueue Printer where
+  extractQueue = queue
+
 printer :: MonadResource m => m PrinterMethod -> m Printer
 printer p = Printer <$> p <*> liftIO (newTVarIO def)