From 857ac994c1d9aeefe0e57dabfde4f2aff1274a66 Mon Sep 17 00:00:00 2001
From: panne <unknown>
Date: Sun, 6 Aug 2000 12:19:21 +0000
Subject: [PATCH] [project @ 2000-08-06 12:19:21 by panne] Replaced `catchIO
 justIoErrors' with `catchJust ioErrors'

---
 ghc/driver/Main.hs |   10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/ghc/driver/Main.hs b/ghc/driver/Main.hs
index 6e3e112..2c053dc 100644
--- a/ghc/driver/Main.hs
+++ b/ghc/driver/Main.hs
@@ -1,6 +1,6 @@
 {-# OPTIONS -W #-}
 -----------------------------------------------------------------------------
--- $Id: Main.hs,v 1.50 2000/08/04 12:04:08 simonmar Exp $
+-- $Id: Main.hs,v 1.51 2000/08/06 12:19:21 panne Exp $
 --
 -- GHC Driver program
 --
@@ -1068,7 +1068,7 @@ getOptionsFromSource
 	-> IO [String]		-- options, if any
 getOptionsFromSource file
   = do h <- openFile file ReadMode
-       catchIO justIoErrors (look h)
+       catchJust ioErrors (look h)
 	  (\e -> if isEOFError e then return [] else ioError e)
   where
 	look h = do
@@ -1500,9 +1500,9 @@ beginMkDependHS = do
 			then return ()
 			else chuck
 	 
-	   catchIO justIoErrors slurp 
+	   catchJust ioErrors slurp 
 		(\e -> if isEOFError e then return () else ioError e)
-	   catchIO justIoErrors chuck
+	   catchJust ioErrors chuck
 		(\e -> if isEOFError e then return () else ioError e)
 
 
@@ -1547,7 +1547,7 @@ endMkDependHS = do
 		hPutStrLn tmp_hdl l
 		slurp
 	 
-  	catchIO justIoErrors slurp 
+  	catchJust ioErrors slurp 
 		(\e -> if isEOFError e then return () else ioError e)
 
 	hClose hdl
-- 
1.7.10.4