1 files changed, 2 insertions, 22 deletions

diff --git a/server/src/Thermoprint/Server/Printer.hs b/server/src/Thermoprint/Server/Printer.hs
index 5dc593e..3700f45 100644
--- a/server/src/Thermoprint/Server/Printer.hs
+++ b/server/src/Thermoprint/Server/Printer.hs
@@ -6,7 +6,6 @@
 {-# LANGUAGE StandaloneDeriving            #-}
 {-# LANGUAGE GADTs                         #-}
 {-# LANGUAGE ExistentialQuantification     #-}
-{-# LANGUAGE DeriveGeneric, DeriveAnyClass #-}
 
 module Thermoprint.Server.Printer
        ( PrinterMethod(..), Printer(..)
@@ -48,6 +47,8 @@ import           Control.Concurrent.STM
 
 import           Data.Time.Clock
 
+import           Thermoprint.Server.Queue
+
 newtype PrinterMethod = PM { unPM :: forall m. (MonadResource m, MonadLogger m) => Printout -> m (Maybe PrintingError) }
 
 data Printer = Printer
@@ -55,27 +56,6 @@ data Printer = Printer
   , queue :: TVar Queue
   }
 
--- | Zipper for 'Seq QueueEntry'
-data Queue = Queue
-  { pending :: Seq QueueEntry -- ^ Pending jobs, closest last
-  , current :: Maybe QueueEntry
-  , history :: Seq (QueueEntry, Maybe PrintingError) -- ^ Completed jobs, closest first
-  }
-  deriving (Typeable, Generic, NFData)
-
-instance Default Queue where
-  def = Queue
-    { pending = Seq.empty
-    , current = Nothing
-    , history = Seq.empty
-    }
-
-data QueueEntry = QueueEntry
-  { jobId :: JobId
-  , created :: UTCTime
-  }
-  deriving (Typeable, Generic, NFData)
-
 printer :: MonadResource m => m PrinterMethod -> m Printer
 printer p = Printer <$> p <*> liftIO (newTVarIO def)