From 7d474405c147704d4a0c443781fcf60b14f81c18 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Thu, 23 Aug 2001 07:52:32 +0000
Subject: [PATCH] [project @ 2001-08-23 07:52:32 by simonpj] Use the unpack
 strategy!

---
 ghc/compiler/stranal/DmdAnal.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
1.7.10.4