Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Alex D
GHC
Commits
ed2f8e2a
Commit
ed2f8e2a
authored
Jun 28, 2007
by
simonpj@microsoft.com
Browse files
Add flags for record extensions; still not working properly though
parent
1a0c116d
Changes
2
Hide whitespace changes
Inline
Side-by-side
compiler/main/DynFlags.hs
View file @
ed2f8e2a
...
...
@@ -178,7 +178,7 @@ data DynFlag
|
Opt_TypeFamilies
|
Opt_OverloadedStrings
|
Opt_DisambiguateRecordFields
|
Opt_Record
DotDot
|
Opt_Record
WildCards
|
Opt_RecordPuns
|
Opt_GADTs
|
Opt_RelaxedPolyRec
-- -X=RelaxedPolyRec
...
...
@@ -1100,6 +1100,10 @@ xFlags = [
(
"ImplicitPrelude"
,
Opt_ImplicitPrelude
),
-- On by default
(
"RecordWildCards"
,
Opt_RecordWildCards
),
(
"RecordPuns"
,
Opt_RecordPuns
),
(
"DisambiguateRecordFields"
,
Opt_DisambiguateRecordFields
),
(
"OverloadedStrings"
,
Opt_OverloadedStrings
),
(
"GADTs"
,
Opt_GADTs
),
(
"TypeFamilies"
,
Opt_TypeFamilies
),
...
...
compiler/rename/RnTypes.lhs
View file @
ed2f8e2a
...
...
@@ -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_Record
DotDot
{ dd_flag <- doptM Opt_Record
WildCards
; checkErr dd_flag (needFlagDotDot str)
; let fld_names1 = map (unLoc . hsRecFieldId) fields1
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment