diff options
author | Simon Peyton Jones <simonpj@microsoft.com> | 2015-10-28 12:21:50 +0000 |
---|---|---|
committer | Simon Peyton Jones <simonpj@microsoft.com> | 2015-10-30 09:45:46 +0000 |
commit | 9b3a0588e7523db54443270005ba2c6016e56ab8 (patch) | |
tree | e4f934b3df83d6c47312c7d0fc498a0c26ab8b4e | |
parent | 8ddf41744ea8b0c1d034f9c5e062b0112d3d3aff (diff) | |
download | haskell-9b3a0588e7523db54443270005ba2c6016e56ab8.tar.gz |
Swap prov/req in variable naming in Parser.y
This is a follow on to the patch for Trac #10928.
It's a local renaming of variables only; no change in behaviour.
-rw-r--r-- | compiler/parser/Parser.y | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/parser/Parser.y b/compiler/parser/Parser.y index 7f8eb59f42..d9da3c8a90 100644 --- a/compiler/parser/Parser.y +++ b/compiler/parser/Parser.y @@ -1168,8 +1168,8 @@ where_decls :: { Located ([AddAnn] ,sL1 $3 (snd $ unLoc $3)) } pattern_synonym_sig :: { LSig RdrName } : 'pattern' con '::' ptype - {% do { let (flag, qtvs, prov, req, ty) = snd $ unLoc $4 - ; let sig = PatSynSig $2 (flag, mkHsQTvs qtvs) prov req ty + {% do { let (flag, qtvs, req, prov, ty) = snd $ unLoc $4 + ; let sig = PatSynSig $2 (flag, mkHsQTvs qtvs) req prov ty ; ams (sLL $1 $> $ sig) (mj AnnPattern $1:mj AnnDcolon $3:(fst $ unLoc $4)) } } |