Eliminate warnings about deprecated use of catch and try

This is also needed for compatibility with GHC 7.6.
This commit is contained in:
hallgren
2012-11-08 15:53:46 +00:00
parent ad74dfe527
commit c2b7288411
7 changed files with 29 additions and 5 deletions

View File

@@ -21,7 +21,7 @@ module GF.Infra.SIO(
import Prelude hiding (putStrLn,print)
import Control.Monad(liftM)
import System.IO(Handle,hPutStrLn,hFlush,stdout)
import System.IO.Error(try)
import GF.System.Catch(try)
import System.Cmd(system)
import System.Environment(getEnv)
import Control.Concurrent.Chan(newChan,writeChan,getChanContents)

View File

@@ -15,14 +15,17 @@
module GF.Infra.UseIO where
import Prelude hiding (catch)
import GF.Data.Operations
import GF.Infra.Option
import GF.System.Catch
import Paths_gf(getDataDir)
import System.Directory
import System.FilePath
import System.IO
import System.IO.Error
import System.IO.Error(isUserError,ioeGetErrorString)
import System.Environment
import System.Exit
import System.CPUTime