diff options
| author | Ian Lynagh <igloo@earth.li> | 2008-04-12 14:41:23 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2008-04-12 14:41:23 +0000 |
| commit | 73c6eb2f63475c9b2fa53d9d31d4862a46d5be48 (patch) | |
| tree | 599abb9086f64f9833449b3dcdfd770b482be6b8 /compiler/stranal | |
| parent | 90f571e1c0cbc77dc6660ba61322b94a4274caea (diff) | |
| download | haskell-73c6eb2f63475c9b2fa53d9d31d4862a46d5be48.tar.gz | |
(F)SLIT -> (f)sLit in WwLib
Diffstat (limited to 'compiler/stranal')
| -rw-r--r-- | compiler/stranal/WwLib.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/stranal/WwLib.lhs b/compiler/stranal/WwLib.lhs index 4254d35de8..19f918f9e1 100644 --- a/compiler/stranal/WwLib.lhs +++ b/compiler/stranal/WwLib.lhs @@ -278,7 +278,7 @@ applyToVars vars fn = mkVarApps fn vars mk_wrap_arg :: Unique -> Type -> NewDemand.Demand -> Bool -> Id mk_wrap_arg uniq ty dmd one_shot - = set_one_shot one_shot (setIdNewDemandInfo (mkSysLocal FSLIT("w") uniq ty) dmd) + = set_one_shot one_shot (setIdNewDemandInfo (mkSysLocal (fsLit "w") uniq ty) dmd) where set_one_shot True id = setOneShotLambda id set_one_shot False id = id @@ -502,5 +502,5 @@ sanitiseCaseBndr :: Id -> Id sanitiseCaseBndr id = id `setIdInfo` vanillaIdInfo mk_ww_local :: Unique -> Type -> Id -mk_ww_local uniq ty = mkSysLocal FSLIT("ww") uniq ty +mk_ww_local uniq ty = mkSysLocal (fsLit "ww") uniq ty \end{code} |