unionM :: IntMap a -> IntMap a -> IntMap a
unionM (IntMap m1) (IntMap m2) = IntMap (W.unionM m1 m2)
unionM :: IntMap a -> IntMap a -> IntMap a
unionM (IntMap m1) (IntMap m2) = IntMap (W.unionM m1 m2)
unionM (IntMap m1) (IntMap m2) = IntMap (W.unionM m1 m2)