X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fprofiling%2FSCCfinal.lhs;h=9e8b1b446639d166f03e6539189a23eaedb5b9bb;hb=5a82864902fc01cf8eee847fcf4ee88e74aa535d;hp=a254a08a38696644f1818f6c9dc29c99d7231043;hpb=30c122df62ec75f9ed7f392f24c2925675bf1d06;p=ghc-hetmet.git

diff --git a/compiler/profiling/SCCfinal.lhs b/compiler/profiling/SCCfinal.lhs
index a254a08..9e8b1b4 100644
--- a/compiler/profiling/SCCfinal.lhs
+++ b/compiler/profiling/SCCfinal.lhs
@@ -5,22 +5,21 @@
 
 This is now a sort-of-normal STG-to-STG pass (WDP 94/06), run by stg2stg.
 
-* Traverses the STG program collecting the cost centres. These are
-  required to declare the cost centres at the start of code
-  generation.
+ - Traverses the STG program collecting the cost centres. These are required
+   to declare the cost centres at the start of code generation.
 
-  Note: because of cross-module unfolding, some of these cost centres
-  may be from other modules.  But will still have to give them
-  "extern" declarations.
+   Note: because of cross-module unfolding, some of these cost centres may be
+   from other modules.  But will still have to give them "extern"
+   declarations.
 
-* Puts on CAF cost-centres if the user has asked for individual CAF
-  cost-centres.
+ - Puts on CAF cost-centres if the user has asked for individual CAF
+   cost-centres.
 
-* Ditto for individual DICT cost-centres.
+ - Ditto for individual DICT cost-centres.
 
-* Boxes top-level inherited functions passed as arguments.
+ - Boxes top-level inherited functions passed as arguments.
 
-* "Distributes" given cost-centres to all as-yet-unmarked RHSs.
+ - "Distributes" given cost-centres to all as-yet-unmarked RHSs.
 
 \begin{code}
 module SCCfinal ( stgMassageForProfiling ) where
@@ -280,7 +279,7 @@ boxHigherOrderArgs almost_expr args = do
       = do    -- make a trivial let-binding for the top-level function
         uniq <- getUniqueMM
         let
-            new_var = mkSysLocal FSLIT("sf") uniq var_type
+            new_var = mkSysLocal (fsLit "sf") uniq var_type
         return ( (new_var, old_var) : bindings, StgVarArg new_var )
       where
         var_type = idType old_var