[commit: ghc] master: Swap prov/req in variable naming in Parser.y (9b3a058)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/9b3a0588e7523db54443270005ba2c6016e56ab8/ghc

>---------------------------------------------------------------

commit 9b3a0588e7523db54443270005ba2c6016e56ab8
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Wed Oct 28 12:21:50 2015 +0000

    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.


>---------------------------------------------------------------

9b3a0588e7523db54443270005ba2c6016e56ab8
 compiler/parser/Parser.y | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/parser/Parser.y b/compiler/parser/Parser.y
index 7f8eb59..d9da3c8 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)) } }