X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Frename%2FRnTypes.lhs;h=2cc232cdc4bef994d75d52d0ec40b25d7ee9270e;hb=46b28f7bfdd535e9fe5217a1151bedfb2cc15472;hp=b061834e77934f3672464a48fdd6311cd4720181;hpb=2eb04ca0f8d0ec72b417cddc60672c696b4a3daa;p=ghc-hetmet.git

diff --git a/compiler/rename/RnTypes.lhs b/compiler/rename/RnTypes.lhs
index b061834..2cc232c 100644
--- a/compiler/rename/RnTypes.lhs
+++ b/compiler/rename/RnTypes.lhs
@@ -689,7 +689,7 @@ rnHsRecFields str mb_con rn_thing mk_rhs (HsRecFields fields dd)
 	; case dd of
 	    Nothing -> return (HsRecFields fields1 dd, fvs1)
 	    Just n  -> ASSERT( n == length fields ) do
-	{ dd_flag <- doptM Opt_RecordDotDot
+	{ dd_flag <- doptM Opt_RecordWildCards
 	; checkErr dd_flag (needFlagDotDot str)
 
 	; let fld_names1 = map (unLoc . hsRecFieldId) fields1