From e9095c3558f42999bf01e5b36213d5f0005ad9a3 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Thu, 10 May 2018 21:52:59 -0400 Subject: [PATCH] :fire: redundant Foldable, Functor, & Traversable instances for Address. --- src/Data/Abstract/Address.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Data/Abstract/Address.hs b/src/Data/Abstract/Address.hs index b86423f98..12f97f154 100644 --- a/src/Data/Abstract/Address.hs +++ b/src/Data/Abstract/Address.hs @@ -8,7 +8,7 @@ import Prologue -- | An abstract address with a @location@ pointing to a variable of type @value@. newtype Address location value = Address { unAddress :: location } - deriving (Eq, Foldable, Functor, Generic1, Ord, Show, Traversable) + deriving (Eq, Generic1, Ord, Show) instance Eq location => Eq1 (Address location) where liftEq = genericLiftEq instance Ord location => Ord1 (Address location) where liftCompare = genericLiftCompare