X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FsimplStg%2FSimplStg.lhs;h=4c240e2135de5d9cac23f9c419a87cba50a89d58;hp=09ab87329b0bae079ed8c96304b02a5f11651eb1;hb=aedb94f5f220b5e442b23ecc445fd38c8d9b6ba0;hpb=7fc749a43b4b6b85d234fa95d4928648259584f4

diff --git a/compiler/simplStg/SimplStg.lhs b/compiler/simplStg/SimplStg.lhs
index 09ab873..4c240e2 100644
--- a/compiler/simplStg/SimplStg.lhs
+++ b/compiler/simplStg/SimplStg.lhs
@@ -4,13 +4,6 @@
 \section[SimplStg]{Driver for simplifying @STG@ programs}
 
 \begin{code}
-{-# OPTIONS -w #-}
--- The above warning supression flag is a temporary kludge.
--- While working on this module you are encouraged to remove it and fix
--- any warnings in the module. See
---     http://hackage.haskell.org/trac/ghc/wiki/Commentary/CodingStyle#Warnings
--- for details
-
 module SimplStg ( stg2stg ) where
 
 #include "HsVersions.h"
@@ -63,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
@@ -79,7 +72,7 @@ stg2stg dflags module_name binds
 	     {-# SCC "ProfMassage" #-}
 	     let
 		 (collected_CCs, binds3)
-		   = stgMassageForProfiling this_pkg module_name us1 binds
+		   = stgMassageForProfiling dflags this_pkg module_name us1 binds
 		 this_pkg = thisPackage dflags
 	     in
 	     end_pass us2 "ProfMassage" collected_CCs binds3
@@ -96,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}