X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fprofiling%2FSCCfinal.lhs;fp=ghc%2Fcompiler%2Fprofiling%2FSCCfinal.lhs;h=41de1f910105b3f6db61de5b1696d310f14b6ff6;hb=0171936c9092666692c69a7f93fa75af976330cb;hp=38ca2bda2e9cab5e2535147325b91f3f7ad1bad4;hpb=6561aa4e8adf3e0a3a22f1de75b238b6463d1828;p=ghc-hetmet.git

diff --git a/ghc/compiler/profiling/SCCfinal.lhs b/ghc/compiler/profiling/SCCfinal.lhs
index 38ca2bd..41de1f9 100644
--- a/ghc/compiler/profiling/SCCfinal.lhs
+++ b/ghc/compiler/profiling/SCCfinal.lhs
@@ -295,7 +295,7 @@ boxHigherOrderArgs almost_expr args
       =     -- make a trivial let-binding for the top-level function
 	getUniqueMM		`thenMM` \ uniq ->
 	let
-	    new_var = mkSysLocal SLIT("sf") uniq var_type
+	    new_var = mkSysLocal FSLIT("sf") uniq var_type
 	in
 	returnMM ( (new_var, old_var) : bindings, StgVarArg new_var )
       where