diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2009-04-21 10:00:39 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2009-04-21 10:00:39 +0000 |
| commit | a70a6e393222e586c518ca7c1982be6d2b9ff1d2 (patch) | |
| tree | 9114f75360f092c4ba6c14eadf23a50a1153d8c4 /compiler/main | |
| parent | 199dc7420ac285628d28538cafe037cc85cff8a7 (diff) | |
| download | haskell-a70a6e393222e586c518ca7c1982be6d2b9ff1d2.tar.gz | |
FIX #2500: Don't log warnings in getHeader
Diffstat (limited to 'compiler/main')
| -rw-r--r-- | compiler/main/HeaderInfo.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/compiler/main/HeaderInfo.hs b/compiler/main/HeaderInfo.hs index 0fd62f5a68..8f5d020f04 100644 --- 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 |