Api tests for Thermoprint.Server

1 files changed, 0 insertions, 13 deletions

diff --git a/server/test/Thermoprint/Server/QueueSpec.hs b/server/test/Thermoprint/Server/QueueSpec.hs
index 4a9297e..8a6bb7b 100644
--- a/server/test/Thermoprint/Server/QueueSpec.hs
+++ b/server/test/Thermoprint/Server/QueueSpec.hs
@@ -16,19 +16,6 @@ import Test.QuickCheck.Modifiers
 deriving instance (Eq PrintingError)
 deriving instance (Eq Queue)
 
-instance Arbitrary Queue where
-  arbitrary = Queue <$> arbitrary <*> arbitrary <*> arbitrary
-
-instance Arbitrary QueueEntry where
-  arbitrary = QueueEntry <$> arbitrary <*> arbitrary
-
-instance Arbitrary PrintingError where
-  arbitrary = oneof [ return (IOError "dummy")
-                    ]
-
-instance Arbitrary JobId where
-  arbitrary = castId . getNonNegative <$> (arbitrary :: Gen (NonNegative Integer))
-
 spec :: Spec
 spec = do
   describe "queue morphisms" $ do