From 5f6fcba3bdf00524c307fd16adbc67f4d860ba4d Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Thu, 10 May 2018 19:43:07 -0400 Subject: [PATCH] :fire: a bunch of unused instances. --- src/Data/Abstract/Exports.hs | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/src/Data/Abstract/Exports.hs b/src/Data/Abstract/Exports.hs index a7c530647..38034fdc5 100644 --- a/src/Data/Abstract/Exports.hs +++ b/src/Data/Abstract/Exports.hs @@ -17,7 +17,7 @@ import Data.Semilattice.Lower -- | A map of export names to an alias & address tuple. newtype Exports location value = Exports { unExports :: Map.Map Name (Name, Maybe (Address location value)) } - deriving (Eq, Foldable, Functor, Generic1, Lower, Monoid, Ord, Semigroup, Show, Traversable) + deriving (Eq, Lower, Monoid, Ord, Semigroup, Show) null :: Exports location value -> Bool null = Map.null . unExports @@ -34,7 +34,3 @@ insert name alias address = Exports . Map.insert name (alias, address) . unExpor -- TODO: Should we filter for duplicates here? aliases :: Exports location value -> [(Name, Name)] aliases = Map.toList . fmap fst . unExports - -instance Eq location => Eq1 (Exports location) where liftEq = genericLiftEq -instance Ord location => Ord1 (Exports location) where liftCompare = genericLiftCompare -instance Show location => Show1 (Exports location) where liftShowsPrec = genericLiftShowsPrec