projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add an extension for GHC's layout-rule relaxations
[ghc-hetmet.git]
/
compiler
/
cmm
/
CmmCPS.hs
diff --git
a/compiler/cmm/CmmCPS.hs
b/compiler/cmm/CmmCPS.hs
index
17c11ce
..
7bfdf84
100644
(file)
--- a/
compiler/cmm/CmmCPS.hs
+++ b/
compiler/cmm/CmmCPS.hs
@@
-42,7
+42,7
@@
cmmCPS :: DynFlags -- ^ Dynamic flags: -dcmm-lint -ddump-cps-cmm
cmmCPS dflags cmm_with_calls
= do { when (dopt Opt_DoCmmLinting dflags) $
do showPass dflags "CmmLint"
cmmCPS dflags cmm_with_calls
= do { when (dopt Opt_DoCmmLinting dflags) $
do showPass dflags "CmmLint"
- case firstJust $ map cmmLint cmm_with_calls of
+ case firstJusts $ map cmmLint cmm_with_calls of
Just err -> do printDump err
ghcExit dflags 1
Nothing -> return ()
Just err -> do printDump err
ghcExit dflags 1
Nothing -> return ()