From ddf76dcf5bd96eb3e5b7767598a307e527df7221 Mon Sep 17 00:00:00 2001 From: Andrew Cady Date: Tue, 16 Jul 2019 15:32:53 -0400 Subject: fix commented-out functions in IntMapClass --- lib/IntMapClass.hs | 8 ++++---- 1 file 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) 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 ms = IMap $ IntMap.unions (coerce ms) +unions :: Coercible [IMap k a] [IntMap a] => [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 f ms = IMap $ IntMap.unionsWith f (coerce ms) +unionsWith :: Coercible [IMap k a] [IntMap a] => (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 difference = adaptm_m_m IntMap.difference -- cgit v1.2.3