Don't import FastString in HsVersions.h

[ghc-hetmet.git] / compiler / simplStg / SimplStg.lhs

diff --git a/compiler/simplStg/SimplStg.lhs b/compiler/simplStg/SimplStg.lhs
index a7b2239..e31415b 100644 (file)
--- a/compiler/simplStg/SimplStg.lhs
+++ b/compiler/simplStg/SimplStg.lhs
@@ -56,7 +56,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 +89,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}