aboutsummaryrefslogtreecommitdiff
path: root/spec/src/Thermoprint/API.hs
diff options
context:
space:
mode:
Diffstat (limited to 'spec/src/Thermoprint/API.hs')
-rw-r--r--spec/src/Thermoprint/API.hs8
1 files changed, 4 insertions, 4 deletions
diff --git a/spec/src/Thermoprint/API.hs b/spec/src/Thermoprint/API.hs
index 8e98db8..5b24e54 100644
--- a/spec/src/Thermoprint/API.hs
+++ b/spec/src/Thermoprint/API.hs
@@ -55,11 +55,11 @@ import Test.QuickCheck.Arbitrary (Arbitrary(..), CoArbitrary(..))
55import Test.QuickCheck.Gen (scale, variant, oneof) 55import Test.QuickCheck.Gen (scale, variant, oneof)
56import Test.QuickCheck.Instances 56import Test.QuickCheck.Instances
57 57
58instance (Integral k, Ord k, ToJSON v) => ToJSON (Map k v) where 58-- instance (Integral k, Ord k, ToJSON v) => ToJSON (Map k v) where
59 toJSON = toJSON . Map.foldMapWithKey (IntMap.singleton . castId) 59-- toJSON = toJSON . Map.foldMapWithKey (IntMap.singleton . castId)
60 60
61instance (Enum k, Ord k, FromJSON v) => FromJSON (Map k v) where 61-- instance (Enum k, Ord k, FromJSON v) => FromJSON (Map k v) where
62 parseJSON = fmap (IntMap.foldMapWithKey $ Map.singleton . castId) . parseJSON 62-- parseJSON = fmap (IntMap.foldMapWithKey $ Map.singleton . castId) . parseJSON
63 63
64data PrinterStatus = Busy JobId 64data PrinterStatus = Busy JobId
65 | Available 65 | Available