[project @ 1997-03-14 07:52:06 by simonpj]

[ghc-hetmet.git] / ghc / compiler / basicTypes / IdLoop.lhi

diff --git a/ghc/compiler/basicTypes/IdLoop.lhi b/ghc/compiler/basicTypes/IdLoop.lhi
index 86680a8..eb21149 100644 (file)
--- a/ghc/compiler/basicTypes/IdLoop.lhi
+++ b/ghc/compiler/basicTypes/IdLoop.lhi
@@ -3,7 +3,8 @@ Breaks the IdInfo/<everything> loops.
 \begin{code}
 interface IdLoop where
 
-import PreludePS       ( _PackedString )
+--import PreludePS     ( _PackedString )
+import FastString       ( FastString )
 import PreludeStdIO    ( Maybe )
 
 import BinderInfo      ( BinderInfo )
@@ -16,7 +17,13 @@ import Id            ( externallyVisibleId, isDataCon, isWorkerId, isWrapperId,
                          nullIdEnv, lookupIdEnv, IdEnv(..),
                          Id(..), GenId
                        )
-import CostCentre      ( CostCentre )
+import CostCentre      ( CostCentre,
+                         noCostCentre, subsumedCosts, cafifyCC,
+                         useCurrentCostCentre, dontCareCostCentre,
+                         overheadCostCentre, preludeCafsCostCentre,
+                         preludeDictsCostCentre, mkAllCafsCC,
+                         mkAllDictsCC, mkUserCC
+                       )
 import IdInfo          ( IdInfo )
 import SpecEnv         ( SpecEnv, nullSpecEnv, isNullSpecEnv )
 import Literal         ( Literal )
@@ -93,8 +100,16 @@ data UnfoldingGuidance
   | UnfoldIfGoodArgs Int Int [Bool] Int
 
 data CostCentre
-\end{code}
-
-
-
 
+noCostCentre           :: CostCentre
+subsumedCosts          :: CostCentre
+useCurrentCostCentre   :: CostCentre
+dontCareCostCentre     :: CostCentre
+overheadCostCentre     :: CostCentre
+preludeCafsCostCentre  :: CostCentre
+preludeDictsCostCentre :: Bool -> CostCentre
+mkAllCafsCC           :: FastString -> FastString -> CostCentre
+mkAllDictsCC          :: FastString -> FastString -> Bool -> CostCentre
+mkUserCC              :: FastString -> FastString -> FastString -> CostCentre
+cafifyCC              :: CostCentre -> CostCentre
+\end{code}