X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FcodeGen%2FStgCmmProf.hs;fp=compiler%2FcodeGen%2FStgCmmProf.hs;h=1a18b99ac871380ec47615622602ead5d9b2bbe0;hb=e6243a818496aad82b6f47511d3bd9bc800f747d;hp=f442295d25eadad020b20f3d5e4ab834aa586131;hpb=176fa33f17dd78355cc572e006d2ab26898e2c69;p=ghc-hetmet.git

diff --git a/compiler/codeGen/StgCmmProf.hs b/compiler/codeGen/StgCmmProf.hs
index f442295..1a18b99 100644
--- a/compiler/codeGen/StgCmmProf.hs
+++ b/compiler/codeGen/StgCmmProf.hs
@@ -37,6 +37,7 @@ module StgCmmProf (
 	-- For REP_xxx constants, which are MachReps
 
 import StgCmmClosure
+import StgCmmEnv
 import StgCmmUtils
 import StgCmmMonad
 import SMRep
@@ -185,10 +186,10 @@ profAlloc words ccs
 -- Setting the cost centre in a new closure
 
 chooseDynCostCentres :: CostCentreStack
-		     -> [Id] 	 	-- Args
+		     -> [Id] 	        -- Args
 		     -> StgExpr		-- Body
 		     -> FCode (CmmExpr, CmmExpr)
--- Called when alllcating a closure
+-- Called when allocating a closure
 -- Tells which cost centre to put in the object, and which
 -- to blame the cost of allocation on
 chooseDynCostCentres ccs args body = do