[GHC] #629: IO library locking bug

[GHC]

#629: IO library locking bug
----------------------+-----------------------------------------------------
 Reporter:  simonmar  |          Owner:         
     Type:  bug       |         Status:  new    
 Priority:  lowest    |      Milestone:         
Component:  Compiler  |        Version:  6.4.1  
 Severity:  minor     |       Keywords:         
       Os:  Unknown   |   Architecture:  Unknown
----------------------+-----------------------------------------------------
We aren't keeping track of the number of readers of a file, so that the
 first one to close a Handle removes the lock.

 {{{
 > main = do
 >         fc <- openFile "z" ReadMode   -- sacrificial handle
 >         fr <- openFile "z" ReadMode
 >         hClose fc
 >         fa <- openFile "z" AppendMode
 >         hPutStr fa "append this line\n"
 >         hGetLine fr >>= print
 }}}

 this should fail.

-- 
Ticket URL: <http://cvs.haskell.org/trac/ghc/ticket/629>
GHC <http://www.haskell.org/ghc/>
The Glasgow Haskell Compiler