[project @ 2003-07-22 12:55:50 by simonmar]

[haskell-directory.git] / System / IO.hs

diff --git a/System/IO.hs b/System/IO.hs
index bc1d254..f936a56 100644 (file)
--- 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 ()
@@ -102,6 +104,10 @@ module System.IO (
 
     hIsTerminalDevice,         -- :: Handle -> IO Bool
 #endif
+
+#ifdef __GLASGOW_HASKELL__
+    hShow,                     -- :: Handle -> IO String
+#endif
   ) where
 
 #ifdef __GLASGOW_HASKELL__