projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
90f571e
)
(F)SLIT -> (f)sLit in WwLib
author
Ian Lynagh
<igloo@earth.li>
Sat, 12 Apr 2008 14:41:23 +0000
(14:41 +0000)
committer
Ian Lynagh
<igloo@earth.li>
Sat, 12 Apr 2008 14:41:23 +0000
(14:41 +0000)
compiler/stranal/WwLib.lhs
patch
|
blob
|
history
diff --git
a/compiler/stranal/WwLib.lhs
b/compiler/stranal/WwLib.lhs
index
4254d35
..
19f918f
100644
(file)
--- 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
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
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
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}
\end{code}