Properly handle tilde-patterns
authorStefan O'Rear <stefanor@cox.net>
Sun, 1 Apr 2007 19:02:15 +0000 (19:02 +0000)
committerStefan O'Rear <stefanor@cox.net>
Sun, 1 Apr 2007 19:02:15 +0000 (19:02 +0000)
libraries/template-haskell/Language/Haskell/TH/Ppr.hs

index b85fd07..cae2a25 100644 (file)
@@ -177,7 +177,7 @@ pprPat i (ConP s ps)  = parensIf (i > noPrec) $ ppr s
 pprPat i (InfixP p1 n p2)
                       = parensIf (i > noPrec)
                       $ pprPat opPrec p1 <+> pprName False n <+> pprPat opPrec p2
-pprPat i (TildeP p)   = parensIf (i > noPrec) $ pprPat appPrec p
+pprPat i (TildeP p)   = parensIf (i > noPrec) $ char '~' <> pprPat appPrec p
 pprPat i (AsP v p)    = parensIf (i > noPrec) $ ppr v <> text "@"
                                                       <> pprPat appPrec p
 pprPat _ WildP        = text "_"