-- | Transform a 'M.Map' into a 'H.HashMap' while transforming the keys.
-- (also ganked directly from Data.Aeson.Functions)
hashMapKey :: (Ord k2) => (k1 -> k2)
           -> H.HashMap k1 v -> Map k2 v
hashMapKey kv = H.foldrWithKey (Map.insert . kv) Map.empty
hashMapKey :: (Ord k2) => (k1 -> k2)
           -> H.HashMap k1 v -> Map k2 v
hashMapKey kv = H.foldrWithKey (Map.insert . kv) Map.empty
hashMapKey kv = H.foldrWithKey (Map.insert . kv) Map.empty