[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 (file)
--- 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