X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Frename%2FRnBinds.lhs;fp=compiler%2Frename%2FRnBinds.lhs;h=b76e6db95e7cdf038455e3511592c9974da9967d;hp=fd5695b0c1608d3f98eb4b984e9db28dee06f374;hb=a6f2d598e1e7760d334d1b5ea0b7745e66835e11;hpb=896135d0231f798f264548f5935223d142e718a7

diff --git a/compiler/rename/RnBinds.lhs b/compiler/rename/RnBinds.lhs
index fd5695b..b76e6db 100644
--- a/compiler/rename/RnBinds.lhs
+++ b/compiler/rename/RnBinds.lhs
@@ -750,7 +750,7 @@ rnGRHS ctxt = wrapLocFstM (rnGRHS' ctxt)
 
 rnGRHS' :: HsMatchContext Name -> GRHS RdrName -> RnM (GRHS Name, FreeVars)
 rnGRHS' ctxt (GRHS guards rhs)
-  = do	{ pattern_guards_allowed <- doptM Opt_PatternGuards
+  = do	{ pattern_guards_allowed <- xoptM Opt_PatternGuards
 	; ((guards', rhs'), fvs) <- rnStmts (PatGuard ctxt) guards $
 				    rnLExpr rhs