From 79ce1f09530ec30a5da1d4b703413cad1948ca39 Mon Sep 17 00:00:00 2001 From: Ross Paterson Date: Thu, 27 Apr 2006 16:32:48 +0000 Subject: [PATCH] fix imports for mingw32 && !GHC --- System/Directory.hs | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/System/Directory.hs b/System/Directory.hs index ec4e5a7..e3b3ed3 100644 --- a/System/Directory.hs +++ b/System/Directory.hs @@ -79,6 +79,11 @@ import NHC.FFI import Hugs.Directory #endif /* __HUGS__ */ +#if defined(__GLASGOW_HASKELL__) || defined(mingw32_HOST_OS) +import Foreign +import Foreign.C +#endif + #ifdef __GLASGOW_HASKELL__ import Prelude @@ -87,8 +92,6 @@ import System.Posix.Types import System.Posix.Internals import System.Time ( ClockTime(..) ) import System.IO -import Foreign -import Foreign.C import GHC.IOBase ( IOException(..), IOErrorType(..), ioException ) -- 1.7.10.4