diff options
author | Simon Marlow <simonmar@microsoft.com> | 2006-10-11 12:05:17 +0000 |
---|---|---|
committer | Simon Marlow <simonmar@microsoft.com> | 2006-10-11 12:05:17 +0000 |
commit | 49c98d143c382a1341e1046f5ca00819a25691ba (patch) | |
tree | 72060af5f0c9af869be6f1dfb24737afdcbdace4 /compiler/HsVersions.h | |
parent | b00b5bc04ff36a551552470060064f0b7d84ca30 (diff) | |
download | haskell-49c98d143c382a1341e1046f5ca00819a25691ba.tar.gz |
Module header tidyup, phase 1
This patch is a start on removing import lists and generally tidying
up the top of each module. In addition to removing import lists:
- Change DATA.IOREF -> Data.IORef etc.
- Change List -> Data.List etc.
- Remove $Id$
- Update copyrights
- Re-order imports to put non-GHC imports last
- Remove some unused and duplicate imports
Diffstat (limited to 'compiler/HsVersions.h')
-rw-r--r-- | compiler/HsVersions.h | 36 |
1 files changed, 0 insertions, 36 deletions
diff --git a/compiler/HsVersions.h b/compiler/HsVersions.h index dd80922e0b..68884c0a11 100644 --- a/compiler/HsVersions.h +++ b/compiler/HsVersions.h @@ -22,42 +22,6 @@ you will screw up the layout where they are used in case expressions! * settings for the target plat instead). */ #include "../includes/ghcautoconf.h" -#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 - -#else - -#define CONCURRENT Concurrent -#define EXCEPTION Exception -#define DYNAMIC Dynamic -#define GLAEXTS GlaExts -#define DATA_BITS Bits -#define DATA_INT Int -#define DATA_WORD Word -#define UNSAFE_IO IOExts -#define TRACE IOExts -#define DATA_IOREF IOExts -#define FIX_IO IOExts -#define MONAD_ST ST -#define ST_ARRAY ST - -#endif - #ifdef __GLASGOW_HASKELL__ #define GLOBAL_VAR(name,value,ty) \ name = Util.global (value) :: IORef (ty); \ |