[project @ 2001-08-24 09:41:27 by rrt]

[ghc-hetmet.git] / ghc / compiler / basicTypes / IdInfo.lhs

diff --git a/ghc/compiler/basicTypes/IdInfo.lhs b/ghc/compiler/basicTypes/IdInfo.lhs
index 52a3d5f..24dfce3 100644 (file)
--- a/ghc/compiler/basicTypes/IdInfo.lhs
+++ b/ghc/compiler/basicTypes/IdInfo.lhs
@@ -96,10 +96,10 @@ import ForeignCall  ( ForeignCall )
 import FieldLabel      ( FieldLabel )
 import Type            ( usOnce, usMany )
 import Demand          hiding( Demand )
+import qualified Demand
 import NewDemand       ( Demand(..), Keepity(..), Deferredness(..), DmdResult(..),
                          lazyDmd, topDmd,
-                         StrictSig, mkStrictSig, 
-                         DmdType, mkTopDmdType
+                         StrictSig, mkStrictSig, mkTopDmdType
                        )
 import Outputable      
 import Util            ( seqList )
@@ -159,6 +159,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