-{-# OPTIONS -fglasgow-exts -cpp #-}
+{-# LANGUAGE PatternGuards, CPP, ForeignFunctionInterface #-}
-----------------------------------------------------------------------------
--
-- (c) The University of Glasgow 2004-2009.
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
import System.Posix hiding (fdToHandle)
#endif
-import IO ( isPermissionError )
-
#if defined(GLOB)
import System.Process(runInteractiveCommand)
import qualified System.Info(os)
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