[project @ 2003-06-20 14:42:03 by ross]

Hugs only: no hSetBinaryMode

diff --git a/System/IO.hs b/System/IO.hs
index 89220af..bc1d254 100644 (file)
--- a/System/IO.hs
+++ b/System/IO.hs
@@ -32,7 +32,9 @@ module System.IO (
 
     hSetBuffering,            -- :: Handle -> BufferMode -> IO ()
     hGetBuffering,            -- :: Handle -> IO BufferMode
+#ifndef __HUGS__
     hSetBinaryMode,           -- :: Handle -> Bool -> IO ()
+#endif
     hFlush,                   -- :: Handle -> IO ()
     hGetPosn,                 -- :: Handle -> IO HandlePosn
     hSetPosn,                 -- :: HandlePosn -> IO ()