[commit: ghc] wip/pattern-synonyms: When computing minimal recursive sets of bindings, don't include references in wrapper definitions for explicitly-bidirectional pattern synonyms (c586a58)

[git at git.haskell.org]

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

On branch  : wip/pattern-synonyms
Link       : http://ghc.haskell.org/trac/ghc/changeset/c586a580caf6dc3de60cfbca4ccce8c54ae6fbee/ghc

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

commit c586a580caf6dc3de60cfbca4ccce8c54ae6fbee
Author: Dr. ERDI Gergo <gergo at erdi.hu>
Date:   Sun Jul 27 21:06:44 2014 +0200

    When computing minimal recursive sets of bindings, don't include
    references in wrapper definitions for explicitly-bidirectional
    pattern synonyms


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

c586a580caf6dc3de60cfbca4ccce8c54ae6fbee
 compiler/rename/RnBinds.lhs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/rename/RnBinds.lhs b/compiler/rename/RnBinds.lhs
index b8887b0..1259edd 100644
--- a/compiler/rename/RnBinds.lhs
+++ b/compiler/rename/RnBinds.lhs
@@ -559,7 +559,7 @@ rnBind _sig_fn bind@(PatSynBind { patsyn_id = L _ name
                           , bind_fvs = fvs' }
 
         ; fvs' `seq` -- See Note [Free-variable space leak]
-          return (bind', [name], fvs)
+          return (bind', [name], fvs1)
       }
   where
     lookupVar = wrapLocM lookupOccRn