@@ -108,14 +108,3 @@ fromList func list =
108add :: (a -> b) -> Bag b -> a -> Bag b
108add :: (a -> b) -> Bag b -> a -> Bag b
109add func bag value =
109add func bag value =
110 Two (One (func value)) bag
110 Two (One (func value)) bag
117−instance Monoid (Bag a) where
118− {-# INLINE mempty #-}
120− {-# INLINE mappend #-}