[project @ 1996-01-18 16:33:17 by partain]

[ghc-hetmet.git] / ghc / compiler / simplCore / OccurAnal.lhs

diff --git a/ghc/compiler/simplCore/OccurAnal.lhs b/ghc/compiler/simplCore/OccurAnal.lhs
index 6445d56..8054ae3 100644 (file)
--- a/ghc/compiler/simplCore/OccurAnal.lhs
+++ b/ghc/compiler/simplCore/OccurAnal.lhs
@@ -83,7 +83,7 @@ import AbsUniType
 import BinderInfo
 import CmdLineOpts     ( GlobalSwitch(..), SimplifierSwitch(..) )
 import Digraph         ( stronglyConnComp )
-import Id              ( eqId, idWantsToBeINLINEd, isConstMethodId,
+import Id              ( eqId, idWantsToBeINLINEd, isConstMethodId_maybe,
                          isSpecPragmaId_maybe, SpecInfo )
 import IdEnv
 import Maybes
@@ -143,7 +143,7 @@ keepBecauseConjurable :: OccEnv -> Id -> Bool
 keepBecauseConjurable (OccEnv _ _ keep_conjurable _ _) binder
   = keep_conjurable && is_conjurable
   where
-    is_conjurable = isConstMethodId binder
+    is_conjurable = maybeToBool (isConstMethodId_maybe binder)
 
 type UsageDetails = IdEnv BinderInfo   -- A finite map from ids to their usage