From b8c94d4007c49b1a47894f861375a39cd43a8649 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 21 May 2001 11:02:50 +0000
Subject: [PATCH] [project @ 2001-05-21 11:02:50 by simonmar] file locking
 works.

---
 ghc/lib/std/PrelHandle.hsc |   15 +--------------
 1 file changed, 1 insertion(+), 14 deletions(-)

diff --git a/ghc/lib/std/PrelHandle.hsc b/ghc/lib/std/PrelHandle.hsc
index 6c516d7..9f50cf1 100644
--- a/ghc/lib/std/PrelHandle.hsc
+++ b/ghc/lib/std/PrelHandle.hsc
@@ -4,7 +4,7 @@
 #undef DEBUG
 
 -- -----------------------------------------------------------------------------
--- $Id: PrelHandle.hsc,v 1.3 2001/05/19 08:02:37 qrczak Exp $
+-- $Id: PrelHandle.hsc,v 1.4 2001/05/21 11:02:50 simonmar Exp $
 --
 -- (c) The University of Glasgow, 1994-2001
 --
@@ -75,8 +75,6 @@ import PrelConc
 -- hSetBuffering: can't change buffering on a stream, 
 --	when the read buffer is non-empty? (no way to flush the buffer)
 
--- fix locking
-
 -- ---------------------------------------------------------------------------
 -- Creating a new handle
 
@@ -653,22 +651,11 @@ openFd fd filepath mode = do
 	   mkFileHandle fd filepath ha_type
 
 
-{- TODO: Implementation of locking in cbits is bogus.
-   Disable it for now.
-
 foreign import "lockFile" unsafe
   lockFile :: CInt -> CInt -> CInt -> IO CInt
 
 foreign import "unlockFile" unsafe
   unlockFile :: CInt -> IO CInt
--}
-
-lockFile :: CInt -> CInt -> CInt -> IO CInt
-lockFile _ _ _ = return 0
-
-unlockFile :: CInt -> IO CInt
-unlockFile _ = return 0
-
 
 mkFileHandle :: FD -> FilePath -> HandleType -> IO Handle
 mkFileHandle fd filepath ha_type = do
-- 
1.7.10.4