From ddd90a85bc57099779ac83022735bbb0889a04c2 Mon Sep 17 00:00:00 2001 From: Joe Crayne Date: Tue, 16 Jul 2019 16:26:56 -0400 Subject: Updates to the updates to IntMapClass. --- lib/IntMapClass.hs | 4 ++-- 1 file 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) unionWithKey :: Coercible Int k => (k -> a -> a -> a) -> IMap k a -> IMap k a -> IMap k a unionWithKey f = adaptm_m_m (IntMap.unionWithKey $ f . coerce) -unions :: Coercible [IMap k a] [IntMap a] => [IMap k a] -> IMap k a +unions :: Coercible k Int => [IMap k a] -> IMap k a unions ms = IMap $ IntMap.unions (coerce <$> ms) -unionsWith :: Coercible [IMap k a] [IntMap a] => (a->a->a) -> [IMap k a] -> IMap k a +unionsWith :: Coercible k Int => (a->a->a) -> [IMap k a] -> IMap k a unionsWith f ms = IMap $ IntMap.unionsWith f (coerce <$> ms) difference :: IMap k b -> IMap k b -> IMap k b -- cgit v1.2.3