X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fparser%2FRdrHsSyn.lhs;h=aeb80a271311876ba802c5013f072ef5e7fbb0ed;hb=bc5b8fb6761278620a0217b284cf77ec4d810d8c;hp=b4d0e85a84ba493eafb68c5558332ba27e6f682c;hpb=9d1247b3dad4fe152503dafa995fa06428e1a04b;p=ghc-hetmet.git

diff --git a/compiler/parser/RdrHsSyn.lhs b/compiler/parser/RdrHsSyn.lhs
index b4d0e85..aeb80a2 100644
--- a/compiler/parser/RdrHsSyn.lhs
+++ b/compiler/parser/RdrHsSyn.lhs
@@ -689,7 +689,7 @@ checkAPat loc e = case e of
  	| bang == bang_RDR 
 	-> do { bang_on <- extension bangPatEnabled
 	      ; if bang_on then checkLPat e >>= (return . BangPat)
-		else parseError loc "Illegal bang-pattern (use -fbang-patterns)" }
+		else parseError loc "Illegal bang-pattern (use -XBangPatterns)" }
 
    ELazyPat e	      -> checkLPat e >>= (return . LazyPat)
    EAsPat n e	      -> checkLPat e >>= (return . AsPat n)