From: simonpj <unknown>
Date: Tue, 24 Jul 2001 09:08:47 +0000 (+0000)
Subject: [project @ 2001-07-24 09:08:47 by simonpj]
X-Git-Tag: Approximately_9120_patches~1437
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=0b6113b8a28a25fc08a0e9daf72bd0715d2dbc78;p=ghc-hetmet.git

[project @ 2001-07-24 09:08:47 by simonpj]
Add missing cases to newDemand
---

diff --git a/ghc/compiler/basicTypes/IdInfo.lhs b/ghc/compiler/basicTypes/IdInfo.lhs
index b130445..8e8d3f8 100644
--- a/ghc/compiler/basicTypes/IdInfo.lhs
+++ b/ghc/compiler/basicTypes/IdInfo.lhs
@@ -160,6 +160,8 @@ newDemand WwEnum	     = Eval
 oldDemand :: NewDemand.Demand -> Demand.Demand
 oldDemand Abs	       = WwLazy True
 oldDemand Lazy	       = WwLazy False
+oldDemand Bot	       = WwStrict
+oldDemand Err	       = WwStrict
 oldDemand Eval	       = WwStrict
 oldDemand (Seq _ _ ds) = WwUnpack True (map oldDemand ds)
 oldDemand (Call _)     = WwStrict