Commit d0ba2040 authored by sof's avatar sof
Browse files

[project @ 1999-04-13 15:46:49 by sof]

Adjusted Id import to avoid module cycle; removed some unused helpers
parent 30b5b5cc
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment