import System.IO
import System.IO.Error hiding ( catch, try )
import Control.Monad ( when, unless )
-import Control.Exception
+import Control.Exception.Base
#ifdef __NHC__
import Directory
#ifdef __NHC__
copyFile fromFPath toFPath =
do readFile fromFPath >>= writeFile toFPath
- try (copyPermissions fromFPath toFPath)
- return ()
+ Prelude.catch (copyPermissions fromFPath toFPath)
+ (\_ -> return ())
#else
copyFile fromFPath toFPath =
copy `Prelude.catch` (\exc -> throw $ ioeSetLocation exc "copyFile")
`Prelude.catch` \e -> if isDoesNotExistError e then return "/tmp"
else throw e
#else
- `catch` (\ex -> return "/tmp")
+ `Prelude.catch` (\ex -> return "/tmp")
#endif
#endif