From bb534f206682be14daf72b33c6105ab27295c6ac Mon Sep 17 00:00:00 2001 From: simonmar Date: Fri, 28 Jan 2005 15:03:08 +0000 Subject: [PATCH] [project @ 2005-01-28 15:03:06 by simonmar] Remove some unnecessary #includes of ghcconfig.h --- GHC/Conc.lhs | 1 - GHC/Handle.hs | 2 -- GHC/IO.hs | 2 -- GHC/Unicode.hs | 1 - System/Environment.hs | 1 - 5 files changed, 7 deletions(-) diff --git a/GHC/Conc.lhs b/GHC/Conc.lhs index 5fd0370..93ffba7 100644 --- a/GHC/Conc.lhs +++ b/GHC/Conc.lhs @@ -14,7 +14,6 @@ -- ----------------------------------------------------------------------------- -#include "ghcconfig.h" module GHC.Conc ( ThreadId(..) diff --git a/GHC/Handle.hs b/GHC/Handle.hs index 223c94e..1db09ff 100644 --- a/GHC/Handle.hs +++ b/GHC/Handle.hs @@ -54,8 +54,6 @@ module GHC.Handle ( ) where -#include "ghcconfig.h" - import System.Directory.Internals import Control.Monad import Data.Bits diff --git a/GHC/IO.hs b/GHC/IO.hs index aa4c0c8..6cc8aaa 100644 --- a/GHC/IO.hs +++ b/GHC/IO.hs @@ -27,8 +27,6 @@ module GHC.IO ( memcpy_baoff_ptr, ) where -#include "ghcconfig.h" - import Foreign import Foreign.C diff --git a/GHC/Unicode.hs b/GHC/Unicode.hs index e3ce2bd..d5846c1 100644 --- a/GHC/Unicode.hs +++ b/GHC/Unicode.hs @@ -30,7 +30,6 @@ import GHC.Int import GHC.Word import GHC.Num (fromInteger) -#include "ghcconfig.h" #include "HsBaseConfig.h" -- | Selects the first 128 characters of the Unicode character set, diff --git a/System/Environment.hs b/System/Environment.hs index 1235920..3271e29 100644 --- a/System/Environment.hs +++ b/System/Environment.hs @@ -34,7 +34,6 @@ import Foreign.C import Control.Exception ( bracket ) import Control.Monad import GHC.IOBase -#include "ghcconfig.h" #endif #ifdef __HUGS__ -- 1.7.10.4