summaryrefslogtreecommitdiff
path: root/compiler/main/CodeOutput.lhs
diff options
context:
space:
mode:
authorSimon Peyton Jones <simonpj@microsoft.com>2011-07-27 11:05:30 +0100
committerSimon Peyton Jones <simonpj@microsoft.com>2011-07-27 11:05:30 +0100
commit64a27638cd3260e0487dd43147d55436735763e7 (patch)
tree214c0974205faa88fba7e850c062117e80b5ae6c /compiler/main/CodeOutput.lhs
parent3fdd294af643a86162e544f442b0e36c57e1db36 (diff)
parent7639e7518b8430b3f2eff2b847c3283e0f00e8ec (diff)
downloadhaskell-64a27638cd3260e0487dd43147d55436735763e7.tar.gz
Merge branch 'master' of http://darcs.haskell.org/ghc
Conflicts: compiler/coreSyn/CoreSubst.lhs compiler/rename/RnNames.lhs
Diffstat (limited to 'compiler/main/CodeOutput.lhs')
-rw-r--r--compiler/main/CodeOutput.lhs2
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/main/CodeOutput.lhs b/compiler/main/CodeOutput.lhs
index b58b7cd395..3ff35b6b92 100644
--- a/compiler/main/CodeOutput.lhs
+++ b/compiler/main/CodeOutput.lhs
@@ -61,7 +61,7 @@ codeOutput dflags this_mod location foreign_stubs pkg_deps flat_abstractC
do { when (dopt Opt_DoCmmLinting dflags) $ do
{ showPass dflags "CmmLint"
- ; let lints = map cmmLint flat_abstractC
+ ; let lints = map (cmmLint (targetPlatform dflags)) flat_abstractC
; case firstJusts lints of
Just err -> do { printDump err
; ghcExit dflags 1