[commit: ghc] master: fixup! Stop the simplifier from removing StaticPtr binds. (31d5b6e)

[git at git.haskell.org]

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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/31d5b6efa24985d0a8be5354e6a9a38e016db0ff/ghc

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

commit 31d5b6efa24985d0a8be5354e6a9a38e016db0ff
Author: Facundo Domínguez <facundo.dominguez at tweag.io>
Date:   Tue Nov 15 21:39:40 2016 -0300

    fixup! Stop the simplifier from removing StaticPtr binds.


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

31d5b6efa24985d0a8be5354e6a9a38e016db0ff
 compiler/simplCore/SetLevels.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/compiler/simplCore/SetLevels.hs b/compiler/simplCore/SetLevels.hs
index fc55564..f2f373d 100644
--- a/compiler/simplCore/SetLevels.hs
+++ b/compiler/simplCore/SetLevels.hs
@@ -1115,7 +1115,8 @@ newLvlVar lvld_rhs is_bot
     rhs_ty = exprType de_tagged_rhs
     mk_id uniq
       -- See Note [Grand plan for static forms] in SimplCore.
-      | isJust (collectStaticPtrSatArgs lvld_rhs)
+      | isJust $ collectStaticPtrSatArgs $ snd $ collectTyBinders $
+                                                   deTagExpr lvld_rhs
       = mkExportedVanillaId (mkSystemVarName uniq (mkFastString "static_ptr"))
                             rhs_ty
       | otherwise