diff options
| author | Krzysztof Gogolewski <krz.gogolewski@gmail.com> | 2013-08-24 16:40:06 +0200 |
|---|---|---|
| committer | Krzysztof Gogolewski <krz.gogolewski@gmail.com> | 2013-10-05 22:10:52 +0200 |
| commit | 3e0109b302bbd9f849d71cbc3efcc905d5271e4e (patch) | |
| tree | 5a0ff00c54157385e75aec64fe3276f29d739d7e /compiler/hsSyn | |
| parent | 3e7b7c3ade04ad3906ac486c987f1e960057043b (diff) | |
| download | haskell-3e0109b302bbd9f849d71cbc3efcc905d5271e4e.tar.gz | |
Remove deprecated _scc_ (#8170)
Diffstat (limited to 'compiler/hsSyn')
| -rw-r--r-- | compiler/hsSyn/HsExpr.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/hsSyn/HsExpr.lhs b/compiler/hsSyn/HsExpr.lhs index 2627f7f39b..4b62b158d5 100644 --- a/compiler/hsSyn/HsExpr.lhs +++ b/compiler/hsSyn/HsExpr.lhs @@ -593,7 +593,7 @@ ppr_expr (EAsPat v e) = ppr v <> char '@' <> pprParendExpr e ppr_expr (EViewPat p e) = ppr p <+> ptext (sLit "->") <+> ppr e ppr_expr (HsSCC lbl expr) - = sep [ ptext (sLit "_scc_") <+> doubleQuotes (ftext lbl), + = sep [ ptext (sLit "{-# SCC") <+> doubleQuotes (ftext lbl) <+> ptext (sLit "#-}"), pprParendExpr expr ] ppr_expr (HsWrap co_fn e) = pprHsWrapper (pprExpr e) co_fn |