From 602adc29dc507205f99b6031ed5020e704a443ad Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sat, 21 Jul 2007 01:18:17 +0000 Subject: [PATCH] Fix the Windows build --- compat/Compat/Directory.hs | 3 +++ 1 file changed, 3 insertions(+) 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 -- 1.7.10.4