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 /lib | |
parent | ddf76dcf5bd96eb3e5b7767598a307e527df7221 (diff) |
Updates to the updates to IntMapClass.
Diffstat (limited to 'lib')
-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 |