diff options
| author | simonpj@microsoft.com <unknown> | 2006-11-08 09:48:13 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2006-11-08 09:48:13 +0000 |
| commit | 6fb1a6433a3b9e8d54abeab9d4aa7aa947140a1e (patch) | |
| tree | a1f45af5abcf1582517e06bd2de1bfdd93630a8b /compiler | |
| parent | 27218ba74f28c527e0b3e88195169b6949d98899 (diff) | |
| download | haskell-6fb1a6433a3b9e8d54abeab9d4aa7aa947140a1e.tar.gz | |
Do not print HsDoc field when pretty-printing patterns (messes up error message)
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/hsSyn/HsPat.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/hsSyn/HsPat.lhs b/compiler/hsSyn/HsPat.lhs index 65cc304999..ea59e8827e 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 -- |