X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FHsVersions.h;h=a53fb4bf35fa410a8afa59c570ddddcb5af53966;hp=fb47f7cba521d4fee18d387e687fe8ad3243ebc9;hb=f8c52d7fde2d7408b4f734251c373f8d3e2c558e;hpb=907c44ca14e479e5fa64d712703b8fbad19d1e04

diff --git a/compiler/HsVersions.h b/compiler/HsVersions.h
index fb47f7c..a53fb4b 100644
--- a/compiler/HsVersions.h
+++ b/compiler/HsVersions.h
@@ -48,8 +48,9 @@ name = Util.global (value) :: IORef (ty); \
 #define ASSERT(e)      if False && (not (e)) then panic "ASSERT" else
 #define ASSERT2(e,msg) if False && (not (e)) then pprPanic "ASSERT2" (msg) else
 #define ASSERTM(e)       do { let { _mbool = (e) } }
-#define ASSERTM2(e,msg)  do { let { _mbool = (e) }; when False (panic "ASSERTM2") }
-#define WARN(e,msg)    if False && (e) then pprPanic "WARN" msg else
+-- Here we deliberately don't use when as Control.Monad might not be imported
+#define ASSERTM2(e,msg)  do { let { _mbool = (e) }; if False then panic "ASSERTM2" else return () }
+#define WARN(e,msg)    if False && (e) then pprPanic "WARN" (msg) else
 #endif
 
 -- This #ifndef lets us switch off the "import FastString"