diff options
| -rw-r--r-- | compiler/coreSyn/PprCore.hs | 8 | ||||
| -rw-r--r-- | testsuite/tests/simplCore/should_compile/T16038/T16038.stdout | 3 | ||||
| -rw-r--r-- | testsuite/tests/simplCore/should_compile/T5996.stdout | 1 |
3 files changed, 7 insertions, 5 deletions
diff --git a/compiler/coreSyn/PprCore.hs b/compiler/coreSyn/PprCore.hs index f22d803cb1..5fe033b862 100644 --- a/compiler/coreSyn/PprCore.hs +++ b/compiler/coreSyn/PprCore.hs @@ -115,7 +115,13 @@ ppr_bind ann (Rec binds) = vcat (map pp binds) ppr_binding :: OutputableBndr b => Annotation b -> (b, Expr b) -> SDoc ppr_binding ann (val_bdr, expr) - = ann expr $$ pprBndr LetBind val_bdr $$ pp_bind + = sdocWithDynFlags $ \dflags -> + vcat [ ann expr + , if gopt Opt_SuppressTypeSignatures dflags + then empty + else pprBndr LetBind val_bdr + , pp_bind + ] where pp_bind = case bndrIsJoin_maybe val_bdr of Nothing -> pp_normal_bind diff --git a/testsuite/tests/simplCore/should_compile/T16038/T16038.stdout b/testsuite/tests/simplCore/should_compile/T16038/T16038.stdout index f52fd1b79c..eec60ece9c 100644 --- a/testsuite/tests/simplCore/should_compile/T16038/T16038.stdout +++ b/testsuite/tests/simplCore/should_compile/T16038/T16038.stdout @@ -1,8 +1,5 @@ Rec { $fEqHsExpr_$c/= -$fEqHsExpr_$c/= -$fEqHsExpr $fEqHsExpr $fEqHsExpr_$c== -$fEqHsExpr_$c== end Rec } diff --git a/testsuite/tests/simplCore/should_compile/T5996.stdout b/testsuite/tests/simplCore/should_compile/T5996.stdout index b8a3398c16..e56cd1f491 100644 --- a/testsuite/tests/simplCore/should_compile/T5996.stdout +++ b/testsuite/tests/simplCore/should_compile/T5996.stdout @@ -1,2 +1 @@ -y2 y2 = x2 |