diff options
| author | Joachim Breitner <mail@joachim-breitner.de> | 2013-09-13 13:52:18 +0200 |
|---|---|---|
| committer | Joachim Breitner <mail@joachim-breitner.de> | 2013-09-14 11:02:25 +0200 |
| commit | 9278994a3606783f60101057646a1fab4e4d217d (patch) | |
| tree | 2d2578382a23f0d75b80b6be9981733110b65eb6 /compiler/rename/RnBinds.lhs | |
| parent | e0885adca7cfdcdc2e2ca2bddace122408f76108 (diff) | |
| download | haskell-9278994a3606783f60101057646a1fab4e4d217d.tar.gz | |
Give language pragma suggestions without -X
for easier copy'n'paste. This fixes: #3647
Diffstat (limited to 'compiler/rename/RnBinds.lhs')
| -rw-r--r-- | compiler/rename/RnBinds.lhs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/rename/RnBinds.lhs b/compiler/rename/RnBinds.lhs index e56f721583..81e9316fa9 100644 --- a/compiler/rename/RnBinds.lhs +++ b/compiler/rename/RnBinds.lhs @@ -812,7 +812,7 @@ rnMatch' ctxt rnBody match@(Match pats maybe_rhs_sig grhss) emptyCaseErr :: HsMatchContext Name -> SDoc emptyCaseErr ctxt = hang (ptext (sLit "Empty list of alterantives in") <+> pp_ctxt) - 2 (ptext (sLit "Use -XEmptyCase to allow this")) + 2 (ptext (sLit "Use EmptyCase to allow this")) where pp_ctxt = case ctxt of CaseAlt -> ptext (sLit "case expression") @@ -898,7 +898,7 @@ misplacedSigErr (L loc sig) defaultSigErr :: Sig RdrName -> SDoc defaultSigErr sig = vcat [ hang (ptext (sLit "Unexpected default signature:")) 2 (ppr sig) - , ptext (sLit "Use -XDefaultSignatures to enable default signatures") ] + , ptext (sLit "Use DefaultSignatures to enable default signatures") ] methodBindErr :: HsBindLR RdrName RdrName -> SDoc methodBindErr mbind @@ -912,7 +912,7 @@ bindsInHsBootFile mbinds nonStdGuardErr :: Outputable body => [LStmtLR Name Name body] -> SDoc nonStdGuardErr guards - = hang (ptext (sLit "accepting non-standard pattern guards (use -XPatternGuards to suppress this message)")) + = hang (ptext (sLit "accepting non-standard pattern guards (use PatternGuards to suppress this message)")) 4 (interpp'SP guards) unusedPatBindWarn :: HsBind Name -> SDoc |