From: simonpj <unknown>
Date: Wed, 10 Aug 2005 07:44:51 +0000 (+0000)
Subject: [project @ 2005-08-10 07:44:51 by simonpj]
X-Git-Tag: Initial_conversion_from_CVS_complete~255
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=f18f0e086569c041a1d691ad3f6b9b3684a39c90;p=ghc-hetmet.git

[project @ 2005-08-10 07:44:51 by simonpj]
Fix pretty-printing bug for NPat; MERGE to STABLE
---

diff --git a/ghc/compiler/hsSyn/HsPat.lhs b/ghc/compiler/hsSyn/HsPat.lhs
index 2243f5f..4880120 100644
--- a/ghc/compiler/hsSyn/HsPat.lhs
+++ b/ghc/compiler/hsSyn/HsPat.lhs
@@ -166,7 +166,8 @@ pprPat (ConPatOut con tvs dicts binds details _)
     else pprUserCon con details
 
 pprPat (LitPat s)	      = ppr s
-pprPat (NPat l _ _ _)	      = ppr l
+pprPat (NPat l Nothing  _ _)  = ppr l
+pprPat (NPat l (Just _) _ _)  = char '-' <> ppr l
 pprPat (NPlusKPat n k _ _)    = hcat [ppr n, char '+', ppr k]
 pprPat (TypePat ty)	      = ptext SLIT("{|") <> ppr ty <> ptext SLIT("|}")
 pprPat (SigPatIn pat ty)      = ppr pat <+> dcolon <+> ppr ty