diff options
| author | ross <unknown> | 2003-01-16 15:07:57 +0000 |
|---|---|---|
| committer | ross <unknown> | 2003-01-16 15:07:57 +0000 |
| commit | 30e32d5eb13879e72e462cc7fd71ab8c97e51094 (patch) | |
| tree | 4f32c0fe102118db99b3a194bdae0ade6e2a68cc | |
| parent | 12d026195100c3a1da22e1f41f1b5bc9ac04b1b0 (diff) | |
[haddock @ 2003-01-16 15:07:57 by ross]
Adjust for the new exception libraries (as well as the old ones).
| -rw-r--r-- | src/Binary.hs | 2 |
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) |