From 7de330ea4fa17a0e1ba2eb33e4440545dc6be93a Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Thu, 11 Feb 2016 22:05:12 +0000 Subject: Test for zipper morphisms --- server/src/Thermoprint/Server/Queue.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'server/src') diff --git a/server/src/Thermoprint/Server/Queue.hs b/server/src/Thermoprint/Server/Queue.hs index d5ab42b..52e973d 100644 --- a/server/src/Thermoprint/Server/Queue.hs +++ b/server/src/Thermoprint/Server/Queue.hs @@ -52,7 +52,7 @@ data Queue = Queue , current :: Maybe QueueEntry , history :: Seq (QueueEntry, Maybe PrintingError) -- ^ Completed jobs, closest first } - deriving (Typeable, Generic, NFData) + deriving (Typeable, Generic, NFData, Show) class HasQueue a where extractQueue :: a -> TVar Queue @@ -71,7 +71,7 @@ data QueueEntry = QueueEntry { jobId :: JobId , created :: UTCTime } - deriving (Typeable, Generic, NFData, Eq, Ord) + deriving (Typeable, Generic, NFData, Eq, Ord, Show) data QueueItem = Pending Int QueueEntry | Current QueueEntry | History Int QueueEntry (Maybe PrintingError) -- cgit v1.2.3