From fd4d1a66accd3b99e717ebe605fef209a8bca7e6 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Thu, 14 Apr 2016 16:38:43 -0400 Subject: [PATCH] Revert "Add a Monoid instance over Intersection." This reverts commit fee81dc54f0336f4c07267726d74543f01b50b9f. --- src/Data/Bifunctor/These.hs | 4 ---- 1 file changed, 4 deletions(-) diff --git a/src/Data/Bifunctor/These.hs b/src/Data/Bifunctor/These.hs index b19bb1484..5b92fcf44 100644 --- a/src/Data/Bifunctor/These.hs +++ b/src/Data/Bifunctor/These.hs @@ -66,7 +66,3 @@ instance (Monoid a, Monoid b) => Monoid (Union a b) where Union (Just a) `mappend` _ = Union $ Just a Union _ `mappend` Union (Just b) = Union $ Just b _ `mappend` _ = Union Nothing - -instance (Monoid a, Monoid b) => Monoid (Intersection a b) where - mempty = Intersection Nothing - Intersection a `mappend` Intersection b = Intersection $ maybe a (maybe Just (apThese . bimap mappend mappend) a) b