diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2016-02-14 23:18:42 +0000 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2016-02-14 23:18:42 +0000 |
| commit | 33869e26481060ec7d5fa65ab1c7e67d96de2a8c (patch) | |
| tree | bdbfd4e9a0ed9742b4080a1b008fa862edaa81b7 /spec | |
| parent | 86e880f9787479e71a69d9a3c75064aa3d095a79 (diff) | |
| download | thermoprint-33869e26481060ec7d5fa65ab1c7e67d96de2a8c.tar thermoprint-33869e26481060ec7d5fa65ab1c7e67d96de2a8c.tar.gz thermoprint-33869e26481060ec7d5fa65ab1c7e67d96de2a8c.tar.bz2 thermoprint-33869e26481060ec7d5fa65ab1c7e67d96de2a8c.tar.xz thermoprint-33869e26481060ec7d5fa65ab1c7e67d96de2a8c.zip | |
Fixed build & minor code cleanup
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 | ||