diff --git a/src/Data/Bifunctor/These.hs b/src/Data/Bifunctor/These.hs index aa55460c8..b61f9393d 100644 --- a/src/Data/Bifunctor/These.hs +++ b/src/Data/Bifunctor/These.hs @@ -1,14 +1,4 @@ module Data.Bifunctor.These where -import Data.Bifunctor - data These a b = This a | That b | These a b deriving (Eq, Show) - - --- Instances - -instance Bifunctor These where - bimap f _ (This a) = This (f a) - bimap _ g (That b) = That (g b) - bimap f g (These a b) = These (f a) (g b)