projects
/
haskell-directory.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
9831cf2
)
[project @ 2003-06-30 14:08:24 by stolz]
author
stolz
<unknown>
Mon, 30 Jun 2003 14:08:24 +0000
(14:08 +0000)
committer
stolz
<unknown>
Mon, 30 Jun 2003 14:08:24 +0000
(14:08 +0000)
Duplex Handles are writeable.
Noticed by: Jurriaan Hage
Please MERGE
GHC/Handle.hs
patch
|
blob
|
history
diff --git
a/GHC/Handle.hs
b/GHC/Handle.hs
index
13a051b
..
26e4140
100644
(file)
--- 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