@@ -79,6 +79,7 @@ import qualified Data.ByteString.Lazy as LB
7979import qualified Data.HashMap.Strict as H
8080import qualified Data.HashSet as HashSet
8181import qualified Data.IntSet as IntSet
82+import qualified Data.IntMap as IntMap
8283import qualified Data.Map as M
8384import qualified Data.Set as Set
8485import qualified Data.Text as T
@@ -653,6 +654,14 @@ instance FromJSON IntSet.IntSet where
653654 parseJSON = fmap IntSet.fromList . parseJSON
654655 {-# INLINE parseJSON #-}
655656
657+instance ToJSON a => ToJSON (IntMap.IntMap a) where
658+ toJSON = toJSON . IntMap.toList
659+ {-# INLINE toJSON #-}
660+
661+instance FromJSON a => FromJSON (IntMap.IntMap a) where
662+ parseJSON = fmap IntMap.fromList . parseJSON
663+ {-# INLINE parseJSON #-}
664+
656665instance (ToJSON v) => ToJSON (M.Map Text v) where
657666 toJSON = Object . M.map toJSON
658667 {-# INLINE toJSON #-}