mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

add missing checkSaneLock wrapper for pidlocks

Browse source
This commit is contained in:
Joey Hess 2015-11-16 15:35:41 -04:00
parent e2b4861bff
commit 262c37c16e
Failed to extract signature
2 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Annex/Transfer.hs
View file

@ -96,7 +96,7 @@ runTransfer' ignorelock t file shouldretry transferobserver transferaction = do
r <- tryLockExclusive (Just mode) lck
case r of
Nothing -> return (Nothing, True)
Just lockhandle -> ifM (liftIO $ checkSaneLock lck lockhandle)
Just lockhandle -> ifM (checkSaneLock lck lockhandle)
( do
void $ liftIO $ tryIO $
writeTransferInfoFile info tfile