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

diff --git a/compat/Compat/Directory.hs b/compat/Compat/Directory.hs
index 4d7cb4b..983f083 100644
--- a/compat/Compat/Directory.hs
+++ b/compat/Compat/Directory.hs
@@ -32,6 +32,9 @@ import Foreign.Marshal.Alloc	( allocaBytes )
 import System.IO (IOMode(..), openBinaryFile, hGetBuf, hPutBuf, hClose)
 import System.IO.Error		( try )
 import GHC.IOBase ( IOException(..) )
+#if defined(mingw32_HOST_OS)
+import GHC.IOBase ( IOErrorType(..) )
+#endif
 #else
 import System.IO		( try )
 #endif