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:
199dc74
)
FIX #2500: Don't log warnings in getHeader
author
Simon Marlow
<marlowsd@gmail.com>
Tue, 21 Apr 2009 10:00:39 +0000
(10:00 +0000)
committer
Simon Marlow
<marlowsd@gmail.com>
Tue, 21 Apr 2009 10:00:39 +0000
(10:00 +0000)
compiler/main/HeaderInfo.hs
patch
|
blob
|
history
diff --git
a/compiler/main/HeaderInfo.hs
b/compiler/main/HeaderInfo.hs
index
0fd62f5
..
8f5d020
100644
(file)
--- a/
compiler/main/HeaderInfo.hs
+++ b/
compiler/main/HeaderInfo.hs
@@
-59,8
+59,10
@@
getImports dflags buf filename source_filename = do
case unP parseHeader (mkPState buf loc dflags) of
PFailed span err -> parseError span err
POk pst rdr_module -> do
- let ms@(warns, errs) = getMessages pst
- logWarnings warns
+ let ms@(_warns, errs) = getMessages pst
+ -- don't log warnings: they'll be reported when we parse the file
+ -- for real. See #2500.
+ -- logWarnings warns
if errorsFound dflags ms
then liftIO $ throwIO $ mkSrcErr errs
else