diff options
Diffstat (limited to 'src/compiler/GF/Infra')
| -rw-r--r-- | src/compiler/GF/Infra/SIO.hs | 2 | ||||
| -rw-r--r-- | src/compiler/GF/Infra/UseIO.hs | 5 |
2 files changed, 5 insertions, 2 deletions
diff --git a/src/compiler/GF/Infra/SIO.hs b/src/compiler/GF/Infra/SIO.hs index c8355b293..1011b8df4 100644 --- a/src/compiler/GF/Infra/SIO.hs +++ b/src/compiler/GF/Infra/SIO.hs @@ -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) diff --git a/src/compiler/GF/Infra/UseIO.hs b/src/compiler/GF/Infra/UseIO.hs index b559f0e92..dec2269fd 100644 --- a/src/compiler/GF/Infra/UseIO.hs +++ b/src/compiler/GF/Infra/UseIO.hs @@ -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 |
