From: Ross Paterson <ross@soi.city.ac.uk>
Date: Thu, 27 Apr 2006 16:32:48 +0000 (+0000)
Subject: fix imports for mingw32 && !GHC
X-Git-Tag: directory_2007-05-24~303
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=79ce1f09530ec30a5da1d4b703413cad1948ca39;p=haskell-directory.git

fix imports for mingw32 && !GHC
---

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 )