X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=utils%2Fghc-pkg%2FMain.hs;h=3490b6c18d98d84f8105405b9da8861061dd36ad;hb=47d37047e1f51f32184e7a3b6e68a22c2156ae32;hp=bb836f08cb679afc730dbf5976901d58c65ac107;hpb=7e25751e8ba0704e23fcf6fff1c23af3ac5af696;p=ghc-hetmet.git

diff --git a/utils/ghc-pkg/Main.hs b/utils/ghc-pkg/Main.hs
index bb836f0..3490b6c 100644
--- a/utils/ghc-pkg/Main.hs
+++ b/utils/ghc-pkg/Main.hs
@@ -1,4 +1,4 @@
-{-# OPTIONS -fglasgow-exts -cpp #-}
+{-# LANGUAGE PatternGuards, CPP, ForeignFunctionInterface #-}
 -----------------------------------------------------------------------------
 --
 -- (c) The University of Glasgow 2004-2009.
@@ -38,7 +38,7 @@ import System.Directory ( doesDirectoryExist, getDirectoryContents,
 import System.Exit ( exitWith, ExitCode(..) )
 import System.Environment ( getArgs, getProgName, getEnv )
 import System.IO
-import System.IO.Error (try, isDoesNotExistError)
+import System.IO.Error
 import Data.List
 import Control.Concurrent
 
@@ -63,8 +63,6 @@ import GHC.ConsoleHandler
 import System.Posix hiding (fdToHandle)
 #endif
 
-import IO ( isPermissionError )
-
 #if defined(GLOB)
 import System.Process(runInteractiveCommand)
 import qualified System.Info(os)
@@ -1698,4 +1696,4 @@ readUTF8File file = do
 removeFileSafe :: FilePath -> IO ()
 removeFileSafe fn =
   removeFile fn `catch` \ e ->
-    when (not $ isDoesNotExistError e) $ ioError e
\ No newline at end of file
+    when (not $ isDoesNotExistError e) $ ioError e