Printer handling threads & printers handler

1 files changed, 4 insertions, 1 deletions

diff --git a/server/src/Thermoprint/Server/Printer.hs b/server/src/Thermoprint/Server/Printer.hs
index 0db98a0..f34b2fa 100644
--- a/server/src/Thermoprint/Server/Printer.hs
+++ b/server/src/Thermoprint/Server/Printer.hs
@@ -8,7 +8,7 @@
 {-# LANGUAGE DeriveGeneric, DeriveAnyClass #-}
 
 module Thermoprint.Server.Printer
-       ( Printer(..)
+       ( Printer(..), printer
        , Queue(..)
        , runPrinter
        ) where
@@ -54,6 +54,9 @@ data Queue = Queue
   }
   deriving (Typeable, Generic, NFData)
 
+printer :: (MonadIO m) => (forall m. (MonadIO m) => Printout -> m (Maybe PrintingError)) -> m Printer
+printer f = Printer f <$> liftIO (newTVarIO $ Queue Seq.empty Nothing Seq.empty)
+
 atomically' :: MonadIO m => STM a -> m a
 atomically' = liftIO . atomically