diff options
| author | Ian Lynagh <igloo@earth.li> | 2009-04-28 23:28:48 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2009-04-28 23:28:48 +0000 |
| commit | e213baf0e233efca39d627efcbabeeaac14f3e5c (patch) | |
| tree | 00ead37212efb3a4cabd4b33f870a205b49269b5 | |
| parent | 6a37d4e7052894a134c9e7d7092d48d882639d3b (diff) | |
| download | haskell-e213baf0e233efca39d627efcbabeeaac14f3e5c.tar.gz | |
Fix error handling
After the fix to #2500, we could get "Failing due to -Werror." but no
warnings printed. Now we don't fail in that case.
| -rw-r--r-- | compiler/main/HeaderInfo.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/main/HeaderInfo.hs b/compiler/main/HeaderInfo.hs index 8f5d020f04..5f4fc7c48b 100644 --- a/compiler/main/HeaderInfo.hs +++ b/compiler/main/HeaderInfo.hs @@ -59,9 +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 + let _ms@(_warns, errs) = getMessages pst -- don't log warnings: they'll be reported when we parse the file -- for real. See #2500. + ms = (emptyBag, errs) -- logWarnings warns if errorsFound dflags ms then liftIO $ throwIO $ mkSrcErr errs |