@@ -61,6 +61,10 @@ data DeclarationRef
61 -- A type class
61 -- A type class
63 | TypeClassRef ProperName
63 | TypeClassRef ProperName
65+ -- A type class instance, created during typeclass desugaring (name, class name, instance types)
67+ | TypeInstanceRef Ident (Qualified ProperName) [Type]
64 deriving (Show, Eq, D.Data, D.Typeable)
68 deriving (Show, Eq, D.Data, D.Typeable)
@@ -112,7 +116,8 @@ data Declaration
113 | TypeClassDeclaration ProperName [String] [Declaration]
117 | TypeClassDeclaration ProperName [String] [Declaration]
115− -- A type instance declaration (dependencies, class name, instance type, member declarations)
119+ -- A type instance declaration (name, dependencies, class name, instance types, member
117 | TypeInstanceDeclaration Ident [(Qualified ProperName, [Type])] (Qualified ProperName) [Type] [Declaration]
122 | TypeInstanceDeclaration Ident [(Qualified ProperName, [Type])] (Qualified ProperName) [Type] [Declaration]
118 deriving (Show, D.Data, D.Typeable)
123 deriving (Show, D.Data, D.Typeable)