summaryrefslogtreecommitdiff
path: root/compiler/HsVersions.h
diff options
context:
space:
mode:
authorSimon Marlow <simonmar@microsoft.com>2006-10-11 12:05:17 +0000
committerSimon Marlow <simonmar@microsoft.com>2006-10-11 12:05:17 +0000
commit49c98d143c382a1341e1046f5ca00819a25691ba (patch)
tree72060af5f0c9af869be6f1dfb24737afdcbdace4 /compiler/HsVersions.h
parentb00b5bc04ff36a551552470060064f0b7d84ca30 (diff)
downloadhaskell-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.h36
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); \