From d0ba2040b0dfefea0c30b109fb58a405e46d878e Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Tue, 13 Apr 1999 15:46:49 +0000
Subject: [PATCH] [project @ 1999-04-13 15:46:49 by sof] Adjusted Id import to
avoid module cycle; removed some unused helpers
---
ghc/compiler/basicTypes/IdInfo.lhs | 11 ++++++-----
1 file changed, 6 insertions(+), 5 deletions(-)
diff --git a/ghc/compiler/basicTypes/IdInfo.lhs b/ghc/compiler/basicTypes/IdInfo.lhs
index 83138ea4cde8..9e3f04f0a5ce 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
--
GitLab