diff options
Diffstat (limited to 'compiler/GHC/Parser/PostProcess.hs')
| -rw-r--r-- | compiler/GHC/Parser/PostProcess.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/GHC/Parser/PostProcess.hs b/compiler/GHC/Parser/PostProcess.hs index 7ce2f4fb9a..47fa0df602 100644 --- a/compiler/GHC/Parser/PostProcess.hs +++ b/compiler/GHC/Parser/PostProcess.hs @@ -1261,8 +1261,8 @@ checkDoAndIfThenElse guardExpr semiThen thenExpr semiElse elseExpr | otherwise = return () where pprOptSemi True = semi pprOptSemi False = empty - expr = text "if" <+> ppr guardExpr <> pprOptSemi semiThen <+> - text "then" <+> ppr thenExpr <> pprOptSemi semiElse <+> + expr = text "if" <+> (ppr guardExpr <> pprOptSemi semiThen) <+> + text "then" <+> (ppr thenExpr <> pprOptSemi semiElse) <+> text "else" <+> ppr elseExpr isFunLhs :: Located (PatBuilder GhcPs) |