From 1aa9881300dad0d6789a6d8981562cdbede12f55 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Wed, 30 Jul 2008 11:45:59 +0000 Subject: [PATCH] add comment --- GHC/Handle.hs | 3 +++ 1 file changed, 3 insertions(+) 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" -- 1.7.10.4