[commit: ghc] wip/T14137: Pass tagged binder to occAnalUnfolding (6be37ac)

[git at git.haskell.org]

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

On branch  : wip/T14137
Link       : http://ghc.haskell.org/trac/ghc/changeset/6be37aca9db37c794afbe56c90221b055aa40cdd/ghc

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

commit 6be37aca9db37c794afbe56c90221b055aa40cdd
Author: Joachim Breitner <mail at joachim-breitner.de>
Date:   Thu Aug 24 19:22:03 2017 +0200

    Pass tagged binder to occAnalUnfolding


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

6be37aca9db37c794afbe56c90221b055aa40cdd
 compiler/simplCore/OccurAnal.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/simplCore/OccurAnal.hs b/compiler/simplCore/OccurAnal.hs
index b332a57..41a3c05 100644
--- a/compiler/simplCore/OccurAnal.hs
+++ b/compiler/simplCore/OccurAnal.hs
@@ -815,7 +815,7 @@ occAnalNonRecBind env lvl imp_rule_edges binder rhs body_usage
 
     -- Unfoldings
     -- See Note [Unfoldings and join points]
-    rhs_usage2 = case occAnalUnfolding env NonRecursive binder of
+    rhs_usage2 = case occAnalUnfolding env NonRecursive tagged_binder of
                    Just unf_usage -> rhs_usage1 +++ unf_usage
                    Nothing        -> rhs_usage1