changes for the new IO library
authorSimon Marlow <marlowsd@gmail.com>
Fri, 29 May 2009 13:22:05 +0000 (13:22 +0000)
committerSimon Marlow <marlowsd@gmail.com>
Fri, 29 May 2009 13:22:05 +0000 (13:22 +0000)
System/Directory.hs

index 48bb364..4f1d659 100644 (file)
@@ -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