From 6fb1a6433a3b9e8d54abeab9d4aa7aa947140a1e Mon Sep 17 00:00:00 2001
From: "simonpj@microsoft.com" <unknown>
Date: Wed, 8 Nov 2006 09:48:13 +0000
Subject: [PATCH] Do not print HsDoc field when pretty-printing patterns
 (messes up error message)

---
 compiler/hsSyn/HsPat.lhs |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/hsSyn/HsPat.lhs b/compiler/hsSyn/HsPat.lhs
index 65cc304..ea59e88 100644
--- a/compiler/hsSyn/HsPat.lhs
+++ b/compiler/hsSyn/HsPat.lhs
@@ -219,8 +219,8 @@ pprConArgs (PrefixCon pats) = interppSP pats
 pprConArgs (InfixCon p1 p2) = interppSP [p1,p2]
 pprConArgs (RecCon rpats)   = braces (hsep (punctuate comma (map (pp_rpat) rpats)))
 			    where
-			      pp_rpat (HsRecField v p d) = 
-                                hsep [ppr d, ppr v, char '=', ppr p]
+			      pp_rpat (HsRecField v p _d) = 
+                                hsep [ppr v, char '=', ppr p]
 
 -- add parallel array brackets around a document
 --
-- 
1.7.10.4