1 files changed, 2 insertions, 1 deletions

diff --git a/server/test/Thermoprint/Server/QueueSpec.hs b/server/test/Thermoprint/Server/QueueSpec.hs
index c39083a..4a9297e 100644
--- a/server/test/Thermoprint/Server/QueueSpec.hs
+++ b/server/test/Thermoprint/Server/QueueSpec.hs
@@ -31,4 +31,5 @@ instance Arbitrary JobId where
 
 spec :: Spec
 spec = do
-  prop "prop_zipper" $ \queue -> queue == toZipper (fromZipper queue)
+  describe "queue morphisms" $ do
+    prop "are inverse" $ \queue -> queue == toZipper (fromZipper queue)