From 51e0ff110972c8d158d510670fbe1a95ae716468 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Fri, 29 May 2009 13:22:05 +0000 Subject: [PATCH] changes for the new IO library --- System/Directory.hs | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/System/Directory.hs b/System/Directory.hs index 48bb364..4f1d659 100644 --- a/System/Directory.hs +++ b/System/Directory.hs @@ -101,7 +101,12 @@ import System.Posix.Internals import System.Time ( ClockTime(..) ) #ifdef __GLASGOW_HASKELL__ + +#if __GLASGOW_HASKELL__ >= 611 +import GHC.IO.Exception ( IOException(..), IOErrorType(..), ioException ) +#else import GHC.IOBase ( IOException(..), IOErrorType(..), ioException ) +#endif #ifdef mingw32_HOST_OS import qualified System.Win32 -- 1.7.10.4