From: Simon Marlow <marlowsd@gmail.com>
Date: Wed, 30 Jul 2008 11:45:59 +0000 (+0000)
Subject: add comment
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=1aa9881300dad0d6789a6d8981562cdbede12f55;p=ghc-base.git

add comment
---

diff --git a/GHC/Handle.hs b/GHC/Handle.hs
index a5ab3c9..0ada376 100644
--- a/GHC/Handle.hs
+++ b/GHC/Handle.hs
@@ -976,6 +976,9 @@ fdToHandle_stat fd mb_stat is_socket filepath mode binary = do
         -- regular files need to be locked
         RegularFile -> do
 #ifndef mingw32_HOST_OS
+           -- On Windows we use explicit exclusion via sopen() to implement
+           -- this locking (see __hscore_open()); on Unix we have to
+           -- implment it in the RTS.
            r <- lockFile fd dev ino (fromBool write)
            when (r == -1)  $
                 ioException (IOError Nothing ResourceBusy "openFile"