fix imports for mingw32 && !GHC
authorRoss Paterson <ross@soi.city.ac.uk>
Thu, 27 Apr 2006 16:32:48 +0000 (16:32 +0000)
committerRoss Paterson <ross@soi.city.ac.uk>
Thu, 27 Apr 2006 16:32:48 +0000 (16:32 +0000)
libraries/base/System/Directory.hs

index ec4e5a7..e3b3ed3 100644 (file)
@@ -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 )