diff options
Diffstat (limited to 'ghc/lib/std/PrelException.lhs')
| -rw-r--r-- | ghc/lib/std/PrelException.lhs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/ghc/lib/std/PrelException.lhs b/ghc/lib/std/PrelException.lhs index 7b556eb2da..f3d435ef19 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} |