projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
a819f3d
)
Suppress warnings about recursive INLINE in output of desugarer
author
simonpj@microsoft.com
<unknown>
Tue, 27 Jul 2010 09:45:49 +0000
(09:45 +0000)
committer
simonpj@microsoft.com
<unknown>
Tue, 27 Jul 2010 09:45:49 +0000
(09:45 +0000)
compiler/simplCore/CoreMonad.lhs
patch
|
blob
|
history
diff --git
a/compiler/simplCore/CoreMonad.lhs
b/compiler/simplCore/CoreMonad.lhs
index
f83f1bc
..
8e75a7b
100644
(file)
--- a/
compiler/simplCore/CoreMonad.lhs
+++ b/
compiler/simplCore/CoreMonad.lhs
@@
-166,6
+166,11
@@
displayLintResults dflags pass warns errs binds
; Err.ghcExit dflags 1 }
| not (isEmptyBag warns)
; Err.ghcExit dflags 1 }
| not (isEmptyBag warns)
+ , not (case pass of { CoreDesugar -> True; _ -> False })
+ -- Suppress warnings after desugaring pass because some
+ -- are legitimate. Notably, the desugarer generates instance
+ -- methods with INLINE pragmas that form a mutually recursive
+ -- group. Only afer a round of simplification are they unravelled.
, not opt_NoDebugOutput
, showLintWarnings pass
= printDump (banner "warnings" $$ Err.pprMessageBag warns)
, not opt_NoDebugOutput
, showLintWarnings pass
= printDump (banner "warnings" $$ Err.pprMessageBag warns)