diff options
Diffstat (limited to 'spec/src/Thermoprint/API.hs')
-rw-r--r-- | spec/src/Thermoprint/API.hs | 8 |
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(..)) | |||
55 | import Test.QuickCheck.Gen (scale, variant, oneof) | 55 | import Test.QuickCheck.Gen (scale, variant, oneof) |
56 | import Test.QuickCheck.Instances | 56 | import Test.QuickCheck.Instances |
57 | 57 | ||
58 | instance (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 | ||
61 | instance (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 | ||
64 | data PrinterStatus = Busy JobId | 64 | data PrinterStatus = Busy JobId |
65 | | Available | 65 | | Available |