diff options
Diffstat (limited to 'spec')
| -rw-r--r-- | spec/src/Thermoprint/API.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/spec/src/Thermoprint/API.hs b/spec/src/Thermoprint/API.hs index 6f7fc02..f5b7bee 100644 --- a/spec/src/Thermoprint/API.hs +++ b/spec/src/Thermoprint/API.hs | |||
| @@ -43,6 +43,8 @@ import Control.Exception (Exception) | |||
| 43 | import Data.Time (UTCTime) | 43 | import Data.Time (UTCTime) |
| 44 | import Data.Time.Format | 44 | import Data.Time.Format |
| 45 | 45 | ||
| 46 | import Data.Encoding.Exception (EncodingException(..)) | ||
| 47 | |||
| 46 | instance (Integral k, Ord k, ToJSON v) => ToJSON (Map k v) where | 48 | instance (Integral k, Ord k, ToJSON v) => ToJSON (Map k v) where |
| 47 | toJSON = toJSON . Map.foldMapWithKey (IntMap.singleton . castId) | 49 | toJSON = toJSON . Map.foldMapWithKey (IntMap.singleton . castId) |
| 48 | 50 | ||
