#define CONCURRENT Control.Concurrent
#define EXCEPTION Control.Exception
+ /* If you want Control.Exception.try, get it as Panic.try, which
+ deals with the shift from 'tryAllIO' to 'try'. */
#define DYNAMIC Data.Dynamic
#define GLAEXTS GHC.Exts
#define DATA_BITS Data.Bits
{-# NOINLINE name #-}
#endif
+#if __GLASGOW_HASKELL__ >= 620
+#define UNBOX_FIELD !!
+#else
+#define UNBOX_FIELD !
+#endif
+
#define COMMA ,
#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 ASSERTM(e) ASSERT(e) do
#else
-#define ASSERT(e)
-#define ASSERT2(e,msg)
-#define WARN(e,msg)
+#define ASSERT(e) if False then error "ASSERT" else
+#define ASSERT2(e,msg) if False then error "ASSERT2" else
+#define ASSERTM(e)
+#define WARN(e,msg) if False then error "WARN" else
#endif
-- temporary usage assertion control KSW 2000-10
#define SLIT(x) (FastString.mkLitString# (x#))
#define FSLIT(x) (FastString.mkFastString# (x#))
-#endif // HSVERSIONS_H
+#endif /* HsVersions.h */
+