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:
a45429f
)
(F)SLIT -> (f)sLit in FloatOut
author
Ian Lynagh
<igloo@earth.li>
Sat, 12 Apr 2008 15:51:14 +0000
(15:51 +0000)
committer
Ian Lynagh
<igloo@earth.li>
Sat, 12 Apr 2008 15:51:14 +0000
(15:51 +0000)
compiler/simplCore/FloatOut.lhs
patch
|
blob
|
history
diff --git
a/compiler/simplCore/FloatOut.lhs
b/compiler/simplCore/FloatOut.lhs
index
bbf6f0a
..
d0a27de
100644
(file)
--- a/
compiler/simplCore/FloatOut.lhs
+++ b/
compiler/simplCore/FloatOut.lhs
@@
-15,8
+15,6
@@
module FloatOut ( floatOutwards ) where
module FloatOut ( floatOutwards ) where
-#include "HsVersions.h"
-
import CoreSyn
import CoreUtils
import CoreSyn
import CoreUtils
@@
-137,9
+135,9
@@
floatOutwards float_sws dflags us pgm
let { (tlets, ntlets, lams) = get_stats (sum_stats fss) };
dumpIfSet_dyn dflags Opt_D_dump_simpl_stats "FloatOut stats:"
let { (tlets, ntlets, lams) = get_stats (sum_stats fss) };
dumpIfSet_dyn dflags Opt_D_dump_simpl_stats "FloatOut stats:"
- (hcat [ int tlets, ptext SLIT(" Lets floated to top level; "),
- int ntlets, ptext SLIT(" Lets floated elsewhere; from "),
- int lams, ptext SLIT(" Lambda groups")]);
+ (hcat [ int tlets, ptext (sLit " Lets floated to top level; "),
+ int ntlets, ptext (sLit " Lets floated elsewhere; from "),
+ int lams, ptext (sLit " Lambda groups")]);
endPass dflags float_msg Opt_D_verbose_core2core (concat binds_s')
{- no specific flag for dumping float-out -}
endPass dflags float_msg Opt_D_verbose_core2core (concat binds_s')
{- no specific flag for dumping float-out -}