diff options
| author | Ian Lynagh <igloo@earth.li> | 2009-02-26 00:16:06 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2009-02-26 00:16:06 +0000 |
| commit | 0b3b3ada70a54a3ea29ecfbbfabda33472e2c00c (patch) | |
| tree | 3bbb2d7dd671be66899da2c2e1441a0555687b7a /compiler | |
| parent | 9ecd4a3e69829f4c4ca6207043256cd40146556d (diff) | |
| download | haskell-0b3b3ada70a54a3ea29ecfbbfabda33472e2c00c.tar.gz | |
If we are given -Werror, then pass -Werror to cpp
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/main/SysTools.lhs | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/compiler/main/SysTools.lhs b/compiler/main/SysTools.lhs index 88d42eef70..71a721e9cc 100644 --- a/compiler/main/SysTools.lhs +++ b/compiler/main/SysTools.lhs @@ -350,8 +350,11 @@ runCpp :: DynFlags -> [Option] -> IO () runCpp dflags args = do let (p,args0) = pgm_P dflags args1 = args0 ++ args - mb_env <- getGccEnv args1 - runSomethingFiltered dflags id "C pre-processor" p args1 mb_env + args2 = if dopt Opt_WarnIsError dflags + then Option "-Werror" : args1 + else args1 + mb_env <- getGccEnv args2 + runSomethingFiltered dflags id "C pre-processor" p args2 mb_env runPp :: DynFlags -> [Option] -> IO () runPp dflags args = do |