From: simonpj <unknown>
Date: Thu, 23 Aug 2001 07:52:32 +0000 (+0000)
Subject: [project @ 2001-08-23 07:52:32 by simonpj]
X-Git-Tag: Approximately_9120_patches~1117
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=7d474405c147704d4a0c443781fcf60b14f81c18;p=ghc-hetmet.git

[project @ 2001-08-23 07:52:32 by simonpj]
Use the unpack strategy!
---

diff --git a/ghc/compiler/stranal/DmdAnal.lhs b/ghc/compiler/stranal/DmdAnal.lhs
index 7b673b3..2bae197 100644
--- a/ghc/compiler/stranal/DmdAnal.lhs
+++ b/ghc/compiler/stranal/DmdAnal.lhs
@@ -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