[project @ 2004-11-16 10:00:10 by simonmar]

Fix build with GHC 6.2.x

diff --git a/ghc/lib/compat/Compat/Directory.hs b/ghc/lib/compat/Compat/Directory.hs
index 73b7f59..12c9d94 100644 (file)
--- a/ghc/lib/compat/Compat/Directory.hs
+++ b/ghc/lib/compat/Compat/Directory.hs
@@ -29,10 +29,8 @@ import Control.Monad           ( when )
 import System.Environment (getEnv)
 import System.FilePath
 import System.IO
-#if defined(mingw32_TARGET_OS)
 import Foreign
 import Foreign.C
-#endif
 import System.Directory(doesFileExist, getPermissions, setPermissions)
 #if defined(__GLASGOW_HASKELL__)
 import GHC.IOBase ( IOException(..) )