diff options
| author | Twan van Laarhoven <twanvl@gmail.com> | 2008-01-26 23:08:05 +0000 |
|---|---|---|
| committer | Twan van Laarhoven <twanvl@gmail.com> | 2008-01-26 23:08:05 +0000 |
| commit | bfcf076a36269a4742ac72a9ce2ab386998d0420 (patch) | |
| tree | 1fca8a886e5eabab593fd8f874817b7394e81d52 /compiler | |
| parent | 0c73c54dba7b8385a82507ef06beb7292f270e5d (diff) | |
| download | haskell-bfcf076a36269a4742ac72a9ce2ab386998d0420.tar.gz | |
Fixed warnings in simplStg/SimplStg
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/simplStg/SimplStg.lhs | 14 |
1 files changed, 5 insertions, 9 deletions
diff --git a/compiler/simplStg/SimplStg.lhs b/compiler/simplStg/SimplStg.lhs index 09ab87329b..e0d13c6770 100644 --- a/compiler/simplStg/SimplStg.lhs +++ b/compiler/simplStg/SimplStg.lhs @@ -4,15 +4,10 @@ \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 +-- 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 @@ -63,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 @@ -96,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} |