X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Flib%2Fcompat%2FCompat%2FDirectory.hs;fp=ghc%2Flib%2Fcompat%2FCompat%2FDirectory.hs;h=7f6306cafba19d4641fb0b31fcf6daa18a295408;hb=e9012cf188a4a558657b7691dd7cb06c1000a684;hp=0dfdb88710065b0ecc6354eaf04f9b6fea8f1c3f;hpb=a3ca2db7709509b2bab595ec68b9fcd4a1d884d2;p=ghc-hetmet.git

diff --git a/ghc/lib/compat/Compat/Directory.hs b/ghc/lib/compat/Compat/Directory.hs
index 0dfdb88..7f6306c 100644
--- a/ghc/lib/compat/Compat/Directory.hs
+++ b/ghc/lib/compat/Compat/Directory.hs
@@ -25,17 +25,19 @@ module Compat.Directory (
 #include "config.h"
 #endif
 
-import Control.Exception       ( bracket )
-import Control.Monad           ( when )
 import System.Environment (getEnv)
 import System.FilePath
+#if __GLASGOW_HASKELL__ > 600
+import Control.Exception	( bracket )
+import Control.Monad		( when )
+import Foreign.Marshal.Alloc	( allocaBytes )
 import System.IO (IOMode(..), openBinaryFile, hGetBuf, hPutBuf, hClose)
 import System.IO.Error		( try )
-import Foreign.Marshal.Alloc	( allocaBytes )
-import System.Directory(doesFileExist, doesDirectoryExist, getPermissions, setPermissions, createDirectory)
-#if defined(__GLASGOW_HASKELL__)
 import GHC.IOBase ( IOException(..) )
+#else
+import System.IO		( try )
 #endif
+import System.Directory(doesFileExist, doesDirectoryExist, getPermissions, setPermissions, createDirectory)
 
 getAppUserDataDirectory :: String -> IO FilePath
 getAppUserDataDirectory appName = do