Fix the Windows build

[ghc-hetmet.git] / compat / Compat / Directory.hs

diff --git a/compat/Compat/Directory.hs b/compat/Compat/Directory.hs
index 4d7cb4b..983f083 100644 (file)
--- 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