From: stolz <unknown>
Date: Mon, 30 Jun 2003 14:08:24 +0000 (+0000)
Subject: [project @ 2003-06-30 14:08:24 by stolz]
X-Git-Tag: nhc98-1-18-release~598
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=66b48f96059c5b52097bd7767b4221f9d0cf8056;p=ghc-base.git

[project @ 2003-06-30 14:08:24 by stolz]
Duplex Handles are writeable.

Noticed by: Jurriaan Hage

Please MERGE
---

diff --git a/GHC/Handle.hs b/GHC/Handle.hs
index 13a051b..26e4140 100644
--- a/GHC/Handle.hs
+++ b/GHC/Handle.hs
@@ -1202,7 +1202,7 @@ hIsReadable handle =
       htype 		   -> return (isReadableHandleType htype)
 
 hIsWritable :: Handle -> IO Bool
-hIsWritable (DuplexHandle _ _) = return False
+hIsWritable (DuplexHandle _ _) = return True
 hIsWritable handle =
     withHandle_ "hIsWritable" handle $ \ handle_ -> do
     case haType handle_ of