Commit 7d474405 authored by simonpj's avatar simonpj
Browse files

[project @ 2001-08-23 07:52:32 by simonpj]

Use the unpack strategy!
parent 92fbaba6
......@@ -343,7 +343,7 @@ mkSigTy :: Id -> Arity -> CoreExpr -> DmdType -> (DmdEnv, StrictSig)
mkSigTy id arity rhs (DmdType fv dmds res)
= (lazy_fv, mkStrictSig id arity dmd_ty)
where
dmd_ty = DmdType strict_fv lazified_dmds res'
dmd_ty = DmdType strict_fv final_dmds res'
lazy_fv = filterUFM (not . isStrictDmd) fv
strict_fv = filterUFM isStrictDmd fv
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment