From bb03cd9448d5d2a9a472b62e8fdb563834e9711a Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Fri, 11 May 2018 09:15:40 -0400 Subject: [PATCH] :fire: some redundant instances. --- src/Data/Abstract/Address.hs | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/src/Data/Abstract/Address.hs b/src/Data/Abstract/Address.hs index 46a2d580b..d8c7ce569 100644 --- a/src/Data/Abstract/Address.hs +++ b/src/Data/Abstract/Address.hs @@ -56,7 +56,7 @@ instance Location (Located location) where -- This is isomorphic to 'Last' from Data.Monoid, but is more convenient -- because it has a 'Reducer' instance. newtype Latest value = Latest (Maybe value) - deriving (Eq, Foldable, Functor, Generic1, Lower, Ord, Show, Traversable) + deriving (Eq, Foldable, Functor, Lower, Ord, Show, Traversable) unLatest :: Latest value -> Maybe value unLatest (Latest value) = value @@ -72,7 +72,3 @@ instance Monoid (Latest value) where instance Reducer value (Latest value) where unit = Latest . Just - -instance Eq1 Latest where liftEq = genericLiftEq -instance Ord1 Latest where liftCompare = genericLiftCompare -instance Show1 Latest where liftShowsPrec = genericLiftShowsPrec