From: malcolm <unknown>
Date: Wed, 6 Oct 2004 15:02:41 +0000 (+0000)
Subject: [project @ 2004-10-06 15:02:41 by malcolm]
X-Git-Tag: nhc98-1-18-release~225
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=433cd67db97f135d1a31e2ae9ef5ebace233fc8a;p=haskell-directory.git

[project @ 2004-10-06 15:02:41 by malcolm]
Dummy implementations of openBinaryFile and hSetBinaryMode for nhc98.
---

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 (