From 4ef120d89aa1c7fd8bdc63f04e56a66effdaa6bb Mon Sep 17 00:00:00 2001 From: Ross Paterson Date: Tue, 24 Jul 2007 11:38:52 +0000 Subject: [PATCH] Hugs only: avoid dependency cycle --- Foreign/C/Error.hs | 3 +++ System/Posix/Internals.hs | 7 ++++--- 2 files changed, 7 insertions(+), 3 deletions(-) diff --git a/Foreign/C/Error.hs b/Foreign/C/Error.hs index ac26141..dc450f3 100644 --- a/Foreign/C/Error.hs +++ b/Foreign/C/Error.hs @@ -118,6 +118,9 @@ import Data.Maybe import GHC.IOBase import GHC.Num import GHC.Base +#elif __HUGS__ +import Hugs.Prelude ( Handle, IOError, ioError ) +import System.IO.Unsafe ( unsafePerformIO ) #else import System.IO ( Handle ) import System.IO.Error ( IOError, ioError ) diff --git a/System/Posix/Internals.hs b/System/Posix/Internals.hs index e03c5dd..23ded36 100644 --- a/System/Posix/Internals.hs +++ b/System/Posix/Internals.hs @@ -32,18 +32,19 @@ import Foreign.C import Data.Bits import Data.Maybe -#ifdef __GLASGOW_HASKELL__ +#if __GLASGOW_HASKELL__ import GHC.Base import GHC.Num import GHC.Real import GHC.IOBase +#elif __HUGS__ +import Hugs.Prelude (IOException(..), IOErrorType(..)) +import Hugs.IO (IOMode(..)) #else import System.IO #endif #ifdef __HUGS__ -import Hugs.Prelude (IOException(..), IOErrorType(..)) - {-# CFILES cbits/PrelIOUtils.c cbits/dirUtils.c cbits/consUtils.c #-} #endif -- 1.7.10.4