summaryrefslogtreecommitdiff
path: root/ghc
diff options
context:
space:
mode:
authorIan Lynagh <igloo@earth.li>2010-12-18 21:33:50 +0000
committerIan Lynagh <igloo@earth.li>2010-12-18 21:33:50 +0000
commitb00e3a6c0a82a8af3238d677f798d812cd7fd49f (patch)
tree221590400c93958028a5538f2767b6c2a2ab158c /ghc
parent50769d7532f90b0ec1f1759a56d478cf2926a0ff (diff)
downloadhaskell-b00e3a6c0a82a8af3238d677f798d812cd7fd49f.tar.gz
Replace uses of the old catch function with the new one
Diffstat (limited to 'ghc')
-rw-r--r--ghc/InteractiveUI.hs4
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