Permalink
Browse files

! pprAExpr instead of pprExpr in tuple

To get parantheses
  • Loading branch information...
1 parent 50ee5ba commit fd17d0877af2af10d604b61884993158bbbaa65a @Averethel committed Jan 31, 2013
Showing with 1 addition and 1 deletion.
  1. +1 −1 Syntax/Expr.hs
View
@@ -83,7 +83,7 @@ module Syntax.Expr (
iNewline, pprExpr e ]
pprExpr (Eapply e args) = pprApplication e args
pprExpr (Etuple es) = iConcat [ iStr "(", iInterleave (iStr ", ") $
- map pprExpr es, iStr ")" ]
+ map pprAExpr es, iStr ")" ]
pprExpr (Econs e1 e2) = pprAExpr e1 `iAppend` iStr " :: "
`iAppend` pprAExpr e2
pprExpr (Eif e1 e2 e3) = iConcat [ iStr "if ( ", pprExpr e1,

0 comments on commit fd17d08

Please sign in to comment.