diff options
-rw-r--r-- | lib/IntMapClass.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/IntMapClass.hs b/lib/IntMapClass.hs index 05b390b..5f113bf 100644 --- a/lib/IntMapClass.hs +++ b/lib/IntMapClass.hs | |||
@@ -159,10 +159,10 @@ unionWith f = adaptm_m_m (IntMap.unionWith f) | |||
159 | unionWithKey :: Coercible Int k => (k -> a -> a -> a) -> IMap k a -> IMap k a -> IMap k a | 159 | unionWithKey :: Coercible Int k => (k -> a -> a -> a) -> IMap k a -> IMap k a -> IMap k a |
160 | unionWithKey f = adaptm_m_m (IntMap.unionWithKey $ f . coerce) | 160 | unionWithKey f = adaptm_m_m (IntMap.unionWithKey $ f . coerce) |
161 | 161 | ||
162 | unions :: Coercible [IMap k a] [IntMap a] => [IMap k a] -> IMap k a | 162 | unions :: Coercible k Int => [IMap k a] -> IMap k a |
163 | unions ms = IMap $ IntMap.unions (coerce <$> ms) | 163 | unions ms = IMap $ IntMap.unions (coerce <$> ms) |
164 | 164 | ||
165 | unionsWith :: Coercible [IMap k a] [IntMap a] => (a->a->a) -> [IMap k a] -> IMap k a | 165 | unionsWith :: Coercible k Int => (a->a->a) -> [IMap k a] -> IMap k a |
166 | unionsWith f ms = IMap $ IntMap.unionsWith f (coerce <$> ms) | 166 | unionsWith f ms = IMap $ IntMap.unionsWith f (coerce <$> ms) |
167 | 167 | ||
168 | difference :: IMap k b -> IMap k b -> IMap k b | 168 | difference :: IMap k b -> IMap k b -> IMap k b |