From 433cd67db97f135d1a31e2ae9ef5ebace233fc8a Mon Sep 17 00:00:00 2001
From: malcolm <unknown>
Date: Wed, 6 Oct 2004 15:02:41 +0000
Subject: [PATCH] [project @ 2004-10-06 15:02:41 by malcolm] Dummy
 implementations of openBinaryFile and hSetBinaryMode for
 nhc98.

---
 System/IO.hs |    4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/System/IO.hs b/System/IO.hs
index aed2eb7..ebdb726 100644
--- a/System/IO.hs
+++ b/System/IO.hs
@@ -141,9 +141,9 @@ module System.IO (
 
     -- * Binary input and output
 
-#if !defined(__NHC__)
     openBinaryFile,	       -- :: FilePath -> IOMode -> IO Handle
     hSetBinaryMode,	       -- :: Handle -> Bool -> IO ()
+#if !defined(__NHC__)
     hPutBuf,		       -- :: Handle -> Ptr a -> Int -> IO ()
     hGetBuf,		       -- :: Handle -> Ptr a -> Int -> IO Int
 #endif
@@ -209,6 +209,8 @@ import IO
   , FilePath                  -- :: String
   )
 import NHC.IOExtras (fixIO)
+openBinaryFile = openFile
+hSetBinaryMode _ _ = return ()
 #endif
 
 import System.IO.Error (
-- 
1.7.10.4