From: ross <unknown>
Date: Fri, 20 Jun 2003 14:42:03 +0000 (+0000)
Subject: [project @ 2003-06-20 14:42:03 by ross]
X-Git-Tag: nhc98-1-18-release~602
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=8fae8163976b1d4b3db7d259b067fa4d5fdcc907;p=ghc-base.git

[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
--- 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 ()