From: Simon Marlow <marlowsd@gmail.com>
Date: Fri, 29 May 2009 13:22:05 +0000 (+0000)
Subject: changes for the new IO library
X-Git-Tag: 2009-06-25~4
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=51e0ff110972c8d158d510670fbe1a95ae716468;p=haskell-directory.git

changes for the new IO library
---

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