summaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
authorAndrew Cady <d@jerkface.net>2019-07-16 15:32:53 -0400
committerAndrew Cady <d@jerkface.net>2019-07-16 15:33:57 -0400
commitddf76dcf5bd96eb3e5b7767598a307e527df7221 (patch)
treefc512556bca40a068893a2c382c9070951efe318 /lib
parent2c83df76a7eb045fa97ffd6ebee8910db6861f7a (diff)
fix commented-out functions in IntMapClass
Diffstat (limited to 'lib')
-rw-r--r--lib/IntMapClass.hs8
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)
159unionWithKey :: Coercible Int k => (k -> a -> a -> a) -> IMap k a -> IMap k a -> IMap k a 159unionWithKey :: Coercible Int k => (k -> a -> a -> a) -> IMap k a -> IMap k a -> IMap k a
160unionWithKey f = adaptm_m_m (IntMap.unionWithKey $ f . coerce) 160unionWithKey f = adaptm_m_m (IntMap.unionWithKey $ f . coerce)
161 161
162-- unions :: Coercible [IMap k a] [IntMap a] => [IMap k a] -> IMap k a 162unions :: Coercible [IMap k a] [IntMap a] => [IMap k a] -> IMap k a
163-- unions ms = IMap $ IntMap.unions (coerce ms) 163unions 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 165unionsWith :: 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) 166unionsWith f ms = IMap $ IntMap.unionsWith f (coerce <$> ms)
167 167
168difference :: IMap k b -> IMap k b -> IMap k b 168difference :: IMap k b -> IMap k b -> IMap k b
169difference = adaptm_m_m IntMap.difference 169difference = adaptm_m_m IntMap.difference