Fix the Windows build

602adc29 · Ian Lynagh · 916a1cab · 602adc29
Commit 602adc29 authored Jul 21, 2007 by Ian Lynagh
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 0 deletions

compat/Compat/Directory.hs compat/Compat/Directory.hs +3 -0

No files found.
--- 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