X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=System%2FIO.hs;h=2e7bdd0d20eeb994d05bed6398a4be6da96436e7;hb=02f0eff43a931703b03e1367617adbafa98b8371;hp=bc1d254c9528d9ee151bca74f471e0c574dafa0d;hpb=8fae8163976b1d4b3db7d259b067fa4d5fdcc907;p=ghc-base.git

diff --git a/System/IO.hs b/System/IO.hs
index bc1d254..2e7bdd0 100644
--- a/System/IO.hs
+++ b/System/IO.hs
@@ -24,7 +24,9 @@ module System.IO (
     stdin, stdout, stderr,   -- :: Handle
 
     openFile,		       -- :: FilePath -> IOMode -> IO Handle
+#if !defined(__NHC__)
     openBinaryFile,	       -- :: FilePath -> IOMode -> IO Handle
+#endif
     hClose,		       -- :: Handle -> IO ()
     hFileSize,		       -- :: Handle -> IO Integer
     hIsEOF,		       -- :: Handle -> IO Bool
@@ -32,7 +34,7 @@ module System.IO (
 
     hSetBuffering,	       -- :: Handle -> BufferMode -> IO ()
     hGetBuffering,	       -- :: Handle -> IO BufferMode
-#ifndef __HUGS__
+#if !defined(__HUGS__) && !defined(__NHC__)
     hSetBinaryMode,	       -- :: Handle -> Bool -> IO ()
 #endif
     hFlush,		       -- :: Handle -> IO ()