-#if __GLASGOW_HASKELL__ >= 504
-
-#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
-#define DATA_INT Data.Int
-#define DATA_WORD Data.Word
-#define UNSAFE_IO System.IO.Unsafe
-#define TRACE Debug.Trace
-#define DATA_IOREF Data.IORef
-#define FIX_IO System.IO
-#define MONAD_ST Control.Monad.ST
-#define ST_ARRAY Data.Array.ST
-