From: ross <unknown>
Date: Thu, 20 Jan 2005 18:35:47 +0000 (+0000)
Subject: [project @ 2005-01-20 18:35:47 by ross]
X-Git-Tag: Initial_conversion_from_CVS_complete~1212
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=a3ca2db7709509b2bab595ec68b9fcd4a1d884d2;p=ghc-hetmet.git

[project @ 2005-01-20 18:35:47 by ross]
more precise imports (including try from System.IO.Error)
---

diff --git a/ghc/lib/compat/Compat/Directory.hs b/ghc/lib/compat/Compat/Directory.hs
index 866a09f..0dfdb88 100644
--- a/ghc/lib/compat/Compat/Directory.hs
+++ b/ghc/lib/compat/Compat/Directory.hs
@@ -29,9 +29,9 @@ import Control.Exception       ( bracket )
 import Control.Monad           ( when )
 import System.Environment (getEnv)
 import System.FilePath
-import System.IO
-import Foreign
-import Foreign.C
+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(..) )