diff options
| author | Ian Lynagh <igloo@earth.li> | 2010-12-18 21:33:50 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2010-12-18 21:33:50 +0000 |
| commit | b00e3a6c0a82a8af3238d677f798d812cd7fd49f (patch) | |
| tree | 221590400c93958028a5538f2767b6c2a2ab158c /ghc | |
| parent | 50769d7532f90b0ec1f1759a56d478cf2926a0ff (diff) | |
| download | haskell-b00e3a6c0a82a8af3238d677f798d812cd7fd49f.tar.gz | |
Replace uses of the old catch function with the new one
Diffstat (limited to 'ghc')
| -rw-r--r-- | ghc/InteractiveUI.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ghc/InteractiveUI.hs b/ghc/InteractiveUI.hs index 5a26324bb1..2f3ca85dec 100644 --- a/ghc/InteractiveUI.hs +++ b/ghc/InteractiveUI.hs @@ -280,7 +280,7 @@ helpText = findEditor :: IO String findEditor = do getEnv "EDITOR" - `IO.catch` \_ -> do + `catchIO` \_ -> do #if mingw32_HOST_OS win <- System.Win32.getWindowsDirectory return (win </> "notepad.exe") @@ -413,7 +413,7 @@ runGHCi paths maybe_exprs = do Right hdl -> do runInputTWithPrefs defaultPrefs defaultSettings $ runCommands $ fileLoop hdl - liftIO (hClose hdl `IO.catch` \_ -> return ()) + liftIO (hClose hdl `catchIO` \_ -> return ()) where getDirectory f = case takeDirectory f of "" -> "."; d -> d |