[project @ 1996-07-15 16:16:46 by partain]

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

diff --git a/ghc/compiler/basicTypes/IdUtils.lhs b/ghc/compiler/basicTypes/IdUtils.lhs
index 167a231..12c8d34 100644 (file)
--- a/ghc/compiler/basicTypes/IdUtils.lhs
+++ b/ghc/compiler/basicTypes/IdUtils.lhs
@@ -12,9 +12,10 @@ IMP_Ubiq()
 IMPORT_DELOOPER(PrelLoop)              -- here for paranoia checking
 
 import CoreSyn
-import CoreUnfold      ( UnfoldingGuidance(..) )
+import CoreUnfold      ( UnfoldingGuidance(..), Unfolding )
 import Id              ( mkImported, mkTemplateLocals )
 import IdInfo          -- quite a few things
+import SpecEnv         ( SpecEnv )
 import Name            ( mkPrimitiveName, OrigName(..) )
 import PrelMods                ( gHC_BUILTINS )
 import PrimOp          ( primOpInfo, tagOf_PrimOp, primOp_str,
@@ -63,7 +64,7 @@ primOpId op
     mk_prim_Id prim_op name tyvar_tmpls arg_tys ty arity
       = mkImported (mkPrimitiveName key (OrigName gHC_BUILTINS name)) ty
           (noIdInfo `addInfo` (mkArityInfo arity)
-                 `addInfo_UF` (mkUnfolding EssentialUnfolding
+                 `addInfo_UF` (mkUnfolding UnfoldAlways
                                 (mk_prim_unfold prim_op tyvar_tmpls arg_tys)))
       where
        key = mkPrimOpIdUnique (IBOX(tagOf_PrimOp prim_op))