From 2a0be3763d07b0796ddbfb582d95492325f60e3e Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 2 Jun 2004 16:17:20 +0000
Subject: [PATCH] [project @ 2004-06-02 16:17:20 by simonmar] Add a comment
 about fdGetMode, which doesn't work properly on Windows

---
 System/Posix/Internals.hs |    1 +
 1 file changed, 1 insertion(+)

diff --git a/System/Posix/Internals.hs b/System/Posix/Internals.hs
index e5dbaaf..b1fe4f7 100644
--- a/System/Posix/Internals.hs
+++ b/System/Posix/Internals.hs
@@ -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" 
-- 
1.7.10.4