1 files changed, 2 insertions, 2 deletions

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)