Commit 06b8d04e authored by simonmar's avatar simonmar
Browse files

[project @ 2004-06-02 16:17:20 by simonmar]

Add a comment about fdGetMode, which doesn't work properly on Windows
parent 72c22698
......@@ -143,6 +143,7 @@ foreign import stdcall unsafe "HsBase.h closesocket"
fdGetMode :: Int -> IO IOMode
fdGetMode fd = do
#if defined(mingw32_TARGET_OS) || defined(__MINGW32__)
-- XXX: this code is *BROKEN*, _setmode only deals with O_TEXT/O_BINARY
flags1 <- throwErrnoIfMinus1Retry "fdGetMode"
(c__setmode (fromIntegral fd) (fromIntegral o_WRONLY))
flags <- throwErrnoIfMinus1Retry "fdGetMode"
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment