@@ -292,7 +292,7 @@ typeClassMemberName :: Declaration -> String
292typeClassMemberName (TypeDeclaration ident _) = runIdent ident
292typeClassMemberName (TypeDeclaration ident _) = runIdent ident
293typeClassMemberName (ValueDeclaration ident _ _ _) = runIdent ident
293typeClassMemberName (ValueDeclaration ident _ _ _) = runIdent ident
294typeClassMemberName (PositionedDeclaration _ _ d) = typeClassMemberName d
294typeClassMemberName (PositionedDeclaration _ _ d) = typeClassMemberName d
295−typeClassMemberName d = error "typeClassMemberName: Invalid declaration in type class definition"
295+typeClassMemberName _ = error "typeClassMemberName: Invalid declaration in type class definition"
297superClassDictionaryNames :: [Constraint] -> [String]
297superClassDictionaryNames :: [Constraint] -> [String]
298superClassDictionaryNames supers =
298superClassDictionaryNames supers =