| Opt_TypeFamilies
| Opt_OverloadedStrings
| Opt_DisambiguateRecordFields
- | Opt_RecordDotDot
+ | Opt_RecordWildCards
| Opt_RecordPuns
| Opt_GADTs
| Opt_RelaxedPolyRec -- -X=RelaxedPolyRec
( "ImplicitPrelude", Opt_ImplicitPrelude ), -- On by default
+ ( "RecordWildCards", Opt_RecordWildCards ),
+ ( "RecordPuns", Opt_RecordPuns ),
+ ( "DisambiguateRecordFields", Opt_DisambiguateRecordFields ),
+
( "OverloadedStrings", Opt_OverloadedStrings ),
( "GADTs", Opt_GADTs ),
( "TypeFamilies", Opt_TypeFamilies ),
; 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