diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2016-02-14 21:43:05 +0000 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2016-02-14 21:43:05 +0000 |
| commit | d4c2170b56b94497e37c94e5e3c9ee6f18a2ed43 (patch) | |
| tree | e6a84c523f38d4d723cf8f55457ea45ccbfd61e3 /server/test | |
| parent | 575a06949d7271734db4d52fe512981d6c0e139d (diff) | |
| download | thermoprint-d4c2170b56b94497e37c94e5e3c9ee6f18a2ed43.tar thermoprint-d4c2170b56b94497e37c94e5e3c9ee6f18a2ed43.tar.gz thermoprint-d4c2170b56b94497e37c94e5e3c9ee6f18a2ed43.tar.bz2 thermoprint-d4c2170b56b94497e37c94e5e3c9ee6f18a2ed43.tar.xz thermoprint-d4c2170b56b94497e37c94e5e3c9ee6f18a2ed43.zip | |
Some more useful constructors for PrintingError
Diffstat (limited to 'server/test')
| -rw-r--r-- | server/test/Thermoprint/Server/QueueSpec.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 | |||
| 23 | arbitrary = QueueEntry <$> arbitrary <*> arbitrary | 23 | arbitrary = QueueEntry <$> arbitrary <*> arbitrary |
| 24 | 24 | ||
| 25 | instance Arbitrary PrintingError where | 25 | instance Arbitrary PrintingError where |
| 26 | arbitrary = oneof [ return UnknownError | 26 | arbitrary = oneof [ return (IOError "dummy") |
| 27 | ] | 27 | ] |
| 28 | 28 | ||
| 29 | instance Arbitrary JobId where | 29 | instance Arbitrary JobId where |