From: sof <unknown>
Date: Tue, 13 Apr 1999 15:46:49 +0000 (+0000)
Subject: [project @ 1999-04-13 15:46:49 by sof]
X-Git-Tag: Approximately_9120_patches~6321
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=d0ba2040b0dfefea0c30b109fb58a405e46d878e;p=ghc-hetmet.git

[project @ 1999-04-13 15:46:49 by sof]
Adjusted Id import to avoid module cycle; removed some unused helpers
---

diff --git a/ghc/compiler/basicTypes/IdInfo.lhs b/ghc/compiler/basicTypes/IdInfo.lhs
index 83138ea..9e3f04f 100644
--- a/ghc/compiler/basicTypes/IdInfo.lhs
+++ b/ghc/compiler/basicTypes/IdInfo.lhs
@@ -26,8 +26,7 @@ module IdInfo (
 
         -- Worker
         WorkerInfo, workerExists, 
-        mkWorkerInfo, noWorkerInfo, workerInfo, setWorkerInfo,
-        ppWorkerInfo,
+        workerInfo, setWorkerInfo,
 
 	-- Unfolding
 	unfoldingInfo, setUnfoldingInfo, 
@@ -59,7 +58,7 @@ module IdInfo (
 import {-# SOURCE #-} CoreUnfold ( Unfolding, noUnfolding )
 import {-# SOURCE #-} CoreSyn	 ( CoreExpr )
 
-import Id               ( Id )
+import Var              ( Id )
 import SpecEnv	        ( SpecEnv, emptySpecEnv )
 import Demand		( Demand,  isLazy, wwLazy, pprDemands )
 import Outputable	
@@ -350,13 +349,15 @@ There might not be a worker, even for a strict function, because:
 
 type WorkerInfo = Maybe Id
 
+{- UNUSED:
 mkWorkerInfo :: Id -> WorkerInfo
 mkWorkerInfo wk_id = Just wk_id
 
-noWorkerInfo = Nothing
-
 ppWorkerInfo Nothing      = empty
 ppWorkerInfo (Just wk_id) = ppr wk_id
+-}
+
+noWorkerInfo = Nothing
 
 workerExists :: Maybe Id -> Bool
 workerExists = isJust