lock pools to work around non-concurrency/composition safety of POSIX fcntl

This commit is contained in:
Joey Hess 2015-05-18 14:16:49 -04:00
parent af6b313456
commit 6915b71c57
8 changed files with 327 additions and 12 deletions

View file

@ -140,7 +140,7 @@ checkTransfer t = do
let lck = transferLockFile tfile
v <- getLockStatus lck
case v of
Just (pid, _) -> catchDefaultIO Nothing $
Just pid -> catchDefaultIO Nothing $
readTransferInfoFile (Just pid) tfile
Nothing -> do
-- Take a non-blocking lock while deleting