From bdaefd5ed3770997238e36d967480c5d764fe12f Mon Sep 17 00:00:00 2001 From: Jose Pedro Magalhaes Date: Fri, 29 Apr 2011 14:23:43 +0200 Subject: [PATCH] Add a selector to DerivDecl. --- compiler/hsSyn/HsDecls.lhs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/hsSyn/HsDecls.lhs b/compiler/hsSyn/HsDecls.lhs index 53d2949..c05f26a 100644 --- a/compiler/hsSyn/HsDecls.lhs +++ b/compiler/hsSyn/HsDecls.lhs @@ -834,7 +834,7 @@ instDeclATs inst_decls = [at | L _ (InstDecl _ _ _ ats) <- inst_decls, at <- ats \begin{code} type LDerivDecl name = Located (DerivDecl name) -data DerivDecl name = DerivDecl (LHsType name) +data DerivDecl name = DerivDecl { deriv_type :: LHsType name } deriving (Data, Typeable) instance (OutputableBndr name) => Outputable (DerivDecl name) where -- 1.7.10.4