[project @ 1999-05-11 16:44:02 by keithw]

[ghc-hetmet.git] / ghc / compiler / profiling / SCCfinal.lhs

diff --git a/ghc/compiler/profiling/SCCfinal.lhs b/ghc/compiler/profiling/SCCfinal.lhs
index d7a3a0d..6afed02 100644 (file)
--- a/ghc/compiler/profiling/SCCfinal.lhs
+++ b/ghc/compiler/profiling/SCCfinal.lhs
@@ -349,7 +349,7 @@ type MassageM result
   -> CollectedCCs
   -> (CollectedCCs, result)
 
--- the initUs function also returns the final UniqueSupply and CollectedCCs
+-- the initMM function also returns the final CollectedCCs
 
 initMM :: Module       -- module name, which we may consult
        -> UniqSupply