Commit 6d353fcb authored by simonmar's avatar simonmar
Browse files

[project @ 2002-12-12 16:35:14 by simonmar]

Fix to build with 4.08.x
parent a0fafeff
......@@ -297,7 +297,11 @@ getWord8 (BinMem _ ix_r sz_r arr_r) = do
ix <- readFastMutInt ix_r
sz <- readFastMutInt sz_r
when (ix >= sz) $
#if __GLASGOW_HASKELL__ <= 408
throw (mkIOError eofErrorType "Data.Binary.getWord8" Nothing Nothing)
#else
ioError (mkIOError eofErrorType "Data.Binary.getWord8" Nothing Nothing)
#endif
arr <- readIORef arr_r
w <- unsafeRead arr ix
writeFastMutInt ix_r (ix+1)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment