Adjusted Id import to avoid module cycle; removed some unused helpers
-- Worker
WorkerInfo, workerExists,
-- Worker
WorkerInfo, workerExists,
- mkWorkerInfo, noWorkerInfo, workerInfo, setWorkerInfo,
- ppWorkerInfo,
+ workerInfo, setWorkerInfo,
-- Unfolding
unfoldingInfo, setUnfoldingInfo,
-- Unfolding
unfoldingInfo, setUnfoldingInfo,
import {-# SOURCE #-} CoreUnfold ( Unfolding, noUnfolding )
import {-# SOURCE #-} CoreSyn ( CoreExpr )
import {-# SOURCE #-} CoreUnfold ( Unfolding, noUnfolding )
import {-# SOURCE #-} CoreSyn ( CoreExpr )
import SpecEnv ( SpecEnv, emptySpecEnv )
import Demand ( Demand, isLazy, wwLazy, pprDemands )
import Outputable
import SpecEnv ( SpecEnv, emptySpecEnv )
import Demand ( Demand, isLazy, wwLazy, pprDemands )
import Outputable
type WorkerInfo = Maybe Id
type WorkerInfo = Maybe Id
mkWorkerInfo :: Id -> WorkerInfo
mkWorkerInfo wk_id = Just wk_id
mkWorkerInfo :: Id -> WorkerInfo
mkWorkerInfo wk_id = Just wk_id
-noWorkerInfo = Nothing
-
ppWorkerInfo Nothing = empty
ppWorkerInfo (Just wk_id) = ppr wk_id
ppWorkerInfo Nothing = empty
ppWorkerInfo (Just wk_id) = ppr wk_id
+-}
+
+noWorkerInfo = Nothing
workerExists :: Maybe Id -> Bool
workerExists = isJust
workerExists :: Maybe Id -> Bool
workerExists = isJust