diff options
| author | Joe Crayne <joe@jerkface.net> | 2019-07-16 16:26:56 -0400 |
|---|---|---|
| committer | Joe Crayne <joe@jerkface.net> | 2019-07-16 16:26:56 -0400 |
| commit | ddd90a85bc57099779ac83022735bbb0889a04c2 (patch) | |
| tree | 8dc88acdff874c984aeb88d150922193f00535f0 | |
| parent | ddf76dcf5bd96eb3e5b7767598a307e527df7221 (diff) | |
Updates to the updates to IntMapClass.
| -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 |