X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Flib%2Fstd%2FPrelException.lhs;h=f3d435ef19ffcd8f5dc98567bbbdef3ce6c00dfb;hb=111cee3f1ad93816cb828e38b38521d85c3bcebb;hp=7b556eb2da3283c63f46097f7b43bffb5659a98f;hpb=290e7896a6785ba5dcfbc7045438f382afd447ff;p=ghc-hetmet.git

diff --git a/ghc/lib/std/PrelException.lhs b/ghc/lib/std/PrelException.lhs
index 7b556eb..f3d435e 100644
--- a/ghc/lib/std/PrelException.lhs
+++ b/ghc/lib/std/PrelException.lhs
@@ -1,5 +1,5 @@
 % -----------------------------------------------------------------------------
-% $Id: PrelException.lhs,v 1.13 2000/03/16 17:27:13 simonmar Exp $
+% $Id: PrelException.lhs,v 1.14 2000/03/23 17:45:31 simonpj Exp $
 %
 % (c) The GRAP/AQUA Project, Glasgow University, 1998
 %
@@ -137,6 +137,8 @@ course.
 
 \begin{code}
 ioError         :: IOError -> IO a 
-ioError err	=  throw (IOException err)
+ioError err	=  IO $ \s -> throw (IOException err) s
+	-- (ioError e) isn't an exception; we only throw
+	-- the exception when applied to a world
 \end{code}