diff --git a/src/Data/Syntax.hs b/src/Data/Syntax.hs index b059441f7..4f6d40838 100644 --- a/src/Data/Syntax.hs +++ b/src/Data/Syntax.hs @@ -136,7 +136,6 @@ newtype Program a = Program [a] instance Eq1 Program where liftEq = genericLiftEq instance Show1 Program where liftShowsPrec = genericLiftShowsPrec instance Pretty1 Program where liftPretty = genericLiftPretty - -- | An accessibility modifier, e.g. private, public, protected, etc. newtype AccessibilityModifier a = AccessibilityModifier ByteString deriving (Diffable, Eq, Foldable, Functor, GAlign, Generic1, Show, Traversable) diff --git a/src/Data/Syntax/Declaration.hs b/src/Data/Syntax/Declaration.hs index de500d27d..3f7868504 100644 --- a/src/Data/Syntax/Declaration.hs +++ b/src/Data/Syntax/Declaration.hs @@ -23,7 +23,6 @@ data Method a = Method { methodContext :: ![a], methodReceiver :: !a, methodName instance Eq1 Method where liftEq = genericLiftEq instance Show1 Method where liftShowsPrec = genericLiftShowsPrec instance Pretty1 Method where liftPretty = genericLiftPretty - data RequiredParameter a = RequiredParameter { requiredParameter :: !a } deriving (Diffable, Eq, Foldable, Functor, GAlign, Generic1, Show, Traversable) diff --git a/src/Data/Syntax/Type.hs b/src/Data/Syntax/Type.hs index 7479af8a5..f50113d5d 100644 --- a/src/Data/Syntax/Type.hs +++ b/src/Data/Syntax/Type.hs @@ -21,7 +21,6 @@ newtype Product a = Product { productElements :: [a] } instance Eq1 Product where liftEq = genericLiftEq instance Show1 Product where liftShowsPrec = genericLiftShowsPrec instance Pretty1 Product where liftPretty = genericLiftPretty - data Visibility a = Visibility { visibilitySubject :: !a, visibilityType :: !a } deriving (Diffable, Eq, Foldable, Functor, GAlign, Generic1, Show, Traversable)