From d4c2170b56b94497e37c94e5e3c9ee6f18a2ed43 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Sun, 14 Feb 2016 21:43:05 +0000 Subject: Some more useful constructors for PrintingError --- server/test/Thermoprint/Server/QueueSpec.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'server/test') diff --git a/server/test/Thermoprint/Server/QueueSpec.hs b/server/test/Thermoprint/Server/QueueSpec.hs index fd45e1b..c39083a 100644 --- a/server/test/Thermoprint/Server/QueueSpec.hs +++ b/server/test/Thermoprint/Server/QueueSpec.hs @@ -23,7 +23,7 @@ instance Arbitrary QueueEntry where arbitrary = QueueEntry <$> arbitrary <*> arbitrary instance Arbitrary PrintingError where - arbitrary = oneof [ return UnknownError + arbitrary = oneof [ return (IOError "dummy") ] instance Arbitrary JobId where -- cgit v1.2.3