[haddock @ 2003-01-16 15:07:57 by ross]

Adjust for the new exception libraries (as well as the old ones).

1 files changed, 1 insertions, 1 deletions

diff --git a/src/Binary.hs b/src/Binary.hs
index 33e3017a..c5fb294e 100644
--- a/src/Binary.hs
+++ b/src/Binary.hs
@@ -269,7 +269,7 @@ getWord8 (BinMem _ ix_r sz_r0 arr_r0) = do
     ix <- readFastMutInt ix_r
     sz <- readFastMutInt sz_r0
     when (ix >= sz)  $
-	throw (mkIOError eofErrorType "Data.Binary.getWord8" Nothing Nothing)
+	ioError (mkIOError eofErrorType "Data.Binary.getWord8" Nothing Nothing)
     arr <- readIORef arr_r0
     w <- unsafeRead arr ix
     writeFastMutInt ix_r (ix+1)