X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compat%2FCompat%2FDirectory.hs;h=983f0830c0a0dbf427fc06019275863af99082f6;hb=d3b882ae7fc0d4b499f194cc1914cc4562ebbd7c;hp=fcbe6db188326bb291516ea97bfab78ace19ccdb;hpb=e552cfc427d2734b9a9629f2ab1d22f493e775f6;p=ghc-hetmet.git

diff --git a/compat/Compat/Directory.hs b/compat/Compat/Directory.hs
index fcbe6db..983f083 100644
--- a/compat/Compat/Directory.hs
+++ b/compat/Compat/Directory.hs
@@ -31,12 +31,15 @@ import Control.Monad		( when )
 import Foreign.Marshal.Alloc	( allocaBytes )
 import System.IO (IOMode(..), openBinaryFile, hGetBuf, hPutBuf, hClose)
 import System.IO.Error		( try )
-import GHC.IOBase ( IOException(..), IOErrorType(..) )
+import GHC.IOBase ( IOException(..) )
+#if defined(mingw32_HOST_OS)
+import GHC.IOBase ( IOErrorType(..) )
+#endif
 #else
 import System.IO		( try )
 #endif
 #if __GLASGOW_HASKELL__ && defined(mingw32_HOST_OS)
-import Foreign.Ptr
+import Foreign
 import Foreign.C
 #endif
 import System.Directory(doesFileExist, doesDirectoryExist, getPermissions, setPermissions, createDirectory)