diff options
author | Facundo DomÃnguez <facundo.dominguez@tweag.io> | 2016-11-15 21:39:40 -0300 |
---|---|---|
committer | Facundo DomÃnguez <facundo.dominguez@tweag.io> | 2016-11-15 21:40:32 -0300 |
commit | 31d5b6efa24985d0a8be5354e6a9a38e016db0ff (patch) | |
tree | 0a4374dad62d1d406589f77e1cf2280fbfb146e5 | |
parent | 017d11e0a36866b05ace32ece1af11adf652a619 (diff) | |
download | haskell-31d5b6efa24985d0a8be5354e6a9a38e016db0ff.tar.gz |
fixup! Stop the simplifier from removing StaticPtr binds.
-rw-r--r-- | compiler/simplCore/SetLevels.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/simplCore/SetLevels.hs b/compiler/simplCore/SetLevels.hs index fc55564587..f2f373d40a 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 |