X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FsimplStg%2FSimplStg.lhs;h=e0d13c67702fcf157180ca33957c590a2515b7a9;hp=a7b2239cf1264d73271ed8d8a69c6369a1e79982;hb=366e74151e99b34b764de757511bfecd399f2510;hpb=61d2625ae2e6a4cdae2ffc92df828905e81c24cc

diff --git a/compiler/simplStg/SimplStg.lhs b/compiler/simplStg/SimplStg.lhs
index a7b2239..e0d13c6 100644
--- a/compiler/simplStg/SimplStg.lhs
+++ b/compiler/simplStg/SimplStg.lhs
@@ -6,6 +6,8 @@
 \begin{code}
 module SimplStg ( stg2stg ) where
 
+-- XXX This define is a bit of a hack, and should be done more nicely
+#define FAST_STRING_NOT_NEEDED 1
 #include "HsVersions.h"
 
 import StgSyn
@@ -56,7 +58,7 @@ stg2stg dflags module_name binds
   where
     stg_linter = if dopt Opt_DoStgLinting dflags
 		 then lintStgBindings
-		 else ( \ whodunnit binds -> binds )
+		 else ( \ _whodunnit binds -> binds )
 
     -------------------------------------------
     do_stg_pass (binds, us, ccs) to_do
@@ -89,7 +91,8 @@ stg2stg dflags module_name binds
 	    --	       add to description of what's happened (reverse order)
 
 -- here so it can be inlined...
-foldl_mn f z []     = return z
+foldl_mn :: (b -> a -> IO b) -> b -> [a] -> IO b
+foldl_mn _ z []     = return z
 foldl_mn f z (x:xs) = f z x	>>= \ zz ->
 		     foldl_mn f zz xs
 \end{code}