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)
 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