[project @ 2000-09-14 13:46:39 by simonpj]

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

diff --git a/ghc/compiler/basicTypes/Id.lhs b/ghc/compiler/basicTypes/Id.lhs
index 4901db0..c743dbb 100644 (file)
--- a/ghc/compiler/basicTypes/Id.lhs
+++ b/ghc/compiler/basicTypes/Id.lhs
@@ -48,7 +48,6 @@ module Id (
        setIdStrictness,
        setIdWorkerInfo,
        setIdSpecialisation,
-       setIdUpdateInfo,
        setIdCafInfo,
        setIdCprInfo,
        setIdOccInfo,
@@ -60,7 +59,6 @@ module Id (
        idWorkerInfo,
        idUnfolding,
        idSpecialisation,
-       idUpdateInfo,
        idCafInfo,
        idCprInfo,
        idLBVarInfo,
@@ -106,7 +104,6 @@ infixl      1 `setIdUnfolding`,
          `setIdStrictness`,
          `setIdWorkerInfo`,
          `setIdSpecialisation`,
-         `setIdUpdateInfo`,
          `setInlinePragma`,
          `idCafInfo`,
          `idCprInfo`
@@ -353,14 +350,6 @@ setIdDemandInfo :: Id -> Demand -> Id
 setIdDemandInfo id demand_info = modifyIdInfo (`setDemandInfo` demand_info) id
 
        ---------------------------------
-       -- UPDATE INFO
-idUpdateInfo :: Id -> UpdateInfo
-idUpdateInfo id = updateInfo (idInfo id)
-
-setIdUpdateInfo :: Id -> UpdateInfo -> Id
-setIdUpdateInfo id upd_info = modifyIdInfo (`setUpdateInfo` upd_info) id
-
-       ---------------------------------
        -- SPECIALISATION
 idSpecialisation :: Id -> CoreRules
 idSpecialisation id = specInfo (idInfo id)