X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fghci%2FInteractiveUI.hs;h=5801a3859d0fe10d6d1fb3f9651a4576f929a807;hb=dc813469cfae2d6ae2defe44bf014faf3ded2b32;hp=aa827351d82fa907dcada31e51515cdd60fd8885;hpb=7d59982807bfdac4f74dea2c8979535211aee2e9;p=ghc-hetmet.git

diff --git a/ghc/compiler/ghci/InteractiveUI.hs b/ghc/compiler/ghci/InteractiveUI.hs
index aa82735..5801a38 100644
--- a/ghc/compiler/ghci/InteractiveUI.hs
+++ b/ghc/compiler/ghci/InteractiveUI.hs
@@ -1,6 +1,6 @@
 {-# OPTIONS -#include "Linker.h" -#include "SchedAPI.h" #-}
 -----------------------------------------------------------------------------
--- $Id: InteractiveUI.hs,v 1.138 2002/12/05 12:36:54 simonmar Exp $
+-- $Id: InteractiveUI.hs,v 1.139 2002/12/12 13:21:46 ross Exp $
 --
 -- GHC Interactive User Interface
 --
@@ -295,7 +295,7 @@ fileLoop hdl prompt = do
    l <- io (IO.try (hGetLine hdl))
    case l of
 	Left e | isEOFError e -> return ()
-	       | otherwise    -> throw e
+	       | otherwise    -> io (ioError e)
 	Right l -> 
 	  case remove_spaces l of
 	    "" -> fileLoop hdl prompt