diff options
| author | Ian Lynagh <igloo@earth.li> | 2008-04-22 11:47:13 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2008-04-22 11:47:13 +0000 |
| commit | f5d4c3239e57b0396672ffc302961f84398d730e (patch) | |
| tree | 5fed42600298dc2d2d29f704947816ed802bb6d3 /compiler/profiling/SCCfinal.lhs | |
| parent | 22491570f2e5fe37559f79b7eb637a6576863963 (diff) | |
| download | haskell-f5d4c3239e57b0396672ffc302961f84398d730e.tar.gz | |
Change the last few (F)SLIT's into (f)sLit's
Diffstat (limited to 'compiler/profiling/SCCfinal.lhs')
| -rw-r--r-- | compiler/profiling/SCCfinal.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/profiling/SCCfinal.lhs b/compiler/profiling/SCCfinal.lhs index a254a08a38..b24840d6fb 100644 --- a/compiler/profiling/SCCfinal.lhs +++ b/compiler/profiling/SCCfinal.lhs @@ -280,7 +280,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 |