diff options
Diffstat (limited to 'compiler/HsVersions.h')
-rw-r--r-- | compiler/HsVersions.h | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/HsVersions.h b/compiler/HsVersions.h index 303d2bdc65..16c0d64dbd 100644 --- a/compiler/HsVersions.h +++ b/compiler/HsVersions.h @@ -56,13 +56,13 @@ name = Util.globalMVar (value); #ifdef DEBUG #define ASSERT(e) if (not (e)) then (assertPanic __FILE__ __LINE__) else #define ASSERT2(e,msg) if (not (e)) then (assertPprPanic __FILE__ __LINE__ (msg)) else -#define WARN( e, msg ) (warnPprTrace (e) __FILE__ __LINE__ (msg)) $ +#define WARN( dflags, e, msg ) (warnPprTrace (e) __FILE__ __LINE__ (msg)) $ #else -- We have to actually use all the variables we are given or we may get -- unused variable warnings when DEBUG is off. #define ASSERT(e) if False && (not (e)) then panic "ASSERT" else #define ASSERT2(e,msg) if False && (const False (e,msg)) then pprPanic "ASSERT2" (msg) else -#define WARN(e,msg) if False && (e) then pprPanic "WARN" (msg) else +#define WARN(dflags,e,msg) if False && (e) then pprPanic (dflags) "WARN" (msg) else -- Here we deliberately don't use when as Control.Monad might not be imported #endif |