From: simonmar <unknown>
Date: Thu, 12 Dec 2002 16:35:14 +0000 (+0000)
Subject: [project @ 2002-12-12 16:35:14 by simonmar]
X-Git-Tag: Approx_11550_changesets_converted~1350
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=6d353fcbc9480b46cc675b5d7f077fd6cecee377;p=ghc-hetmet.git

[project @ 2002-12-12 16:35:14 by simonmar]
Fix to build with 4.08.x
---

diff --git a/ghc/compiler/utils/Binary.hs b/ghc/compiler/utils/Binary.hs
index 2414067..4df582a 100644
--- a/ghc/compiler/utils/Binary.hs
+++ b/ghc/compiler/utils/Binary.hs
@@ -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)