projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Misc. cleanups to CPS converter
[ghc-hetmet.git]
/
compiler
/
rename
/
RnTypes.lhs
diff --git
a/compiler/rename/RnTypes.lhs
b/compiler/rename/RnTypes.lhs
index
b061834
..
2cc232c
100644
(file)
--- 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
; 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
; checkErr dd_flag (needFlagDotDot str)
; let fld_names1 = map (unLoc . hsRecFieldId) fields1