diff options
| author | Andrew Cady <d@jerkface.net> | 2019-07-16 15:32:53 -0400 |
|---|---|---|
| committer | Andrew Cady <d@jerkface.net> | 2019-07-16 15:33:57 -0400 |
| commit | ddf76dcf5bd96eb3e5b7767598a307e527df7221 (patch) | |
| tree | fc512556bca40a068893a2c382c9070951efe318 | |
| parent | 2c83df76a7eb045fa97ffd6ebee8910db6861f7a (diff) | |
fix commented-out functions in IntMapClass
| -rw-r--r-- | lib/IntMapClass.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/IntMapClass.hs b/lib/IntMapClass.hs index b44e05c..05b390b 100644 --- a/lib/IntMapClass.hs +++ b/lib/IntMapClass.hs | |||
| @@ -159,11 +159,11 @@ 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 [IMap k a] [IntMap a] => [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 [IMap k a] [IntMap a] => (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 |
| 169 | difference = adaptm_m_m IntMap.difference | 169 | difference = adaptm_m_m IntMap.difference |