From 30e32d5eb13879e72e462cc7fd71ab8c97e51094 Mon Sep 17 00:00:00 2001
From: ross <unknown>
Date: Thu, 16 Jan 2003 15:07:57 +0000
Subject: [haddock @ 2003-01-16 15:07:57 by ross] Adjust for the new exception
 libraries (as well as the old ones).

---
 src/Binary.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)
-- 
cgit v1.2.3