projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
c5c5f43
)
Alpha-rename a variable
author
Ian Lynagh
<igloo@earth.li>
Tue, 10 Jul 2007 23:33:08 +0000
(23:33 +0000)
committer
Ian Lynagh
<igloo@earth.li>
Tue, 10 Jul 2007 23:33:08 +0000
(23:33 +0000)
compiler/rename/RnTypes.lhs
patch
|
blob
|
history
diff --git
a/compiler/rename/RnTypes.lhs
b/compiler/rename/RnTypes.lhs
index
15f4daf
..
82c7367
100644
(file)
--- a/
compiler/rename/RnTypes.lhs
+++ b/
compiler/rename/RnTypes.lhs
@@
-572,9
+572,9
@@
rnPat (VarPat name)
returnM (VarPat vname, emptyFVs)
rnPat (SigPatIn pat ty)
returnM (VarPat vname, emptyFVs)
rnPat (SigPatIn pat ty)
- = doptM Opt_PatternSignatures `thenM` \ glaExts ->
+ = doptM Opt_PatternSignatures `thenM` \ patsigs ->
- if glaExts
+ if patsigs
then rnLPat pat `thenM` \ (pat', fvs1) ->
rnHsTypeFVs doc ty `thenM` \ (ty', fvs2) ->
returnM (SigPatIn pat' ty', fvs1 `plusFV` fvs2)
then rnLPat pat `thenM` \ (pat', fvs1) ->
rnHsTypeFVs doc ty `thenM` \ (ty', fvs2) ->
returnM (SigPatIn pat' ty', fvs1 `plusFV` fvs2)