diff options
author | Joey Hess <joeyh@joeyh.name> | 2015-11-16 15:35:41 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2015-11-16 15:35:41 -0400 |
commit | 7d5a6b9fea20a0aec0e716ea855b46e460b3da7d (patch) | |
tree | 65ee23d9672a6b8d4d3dc1de01a882095bc3ee1b /Annex/Transfer.hs | |
parent | 24cdd3abc3170f25913e49e8fb6ccf7b0d23a770 (diff) |
add missing checkSaneLock wrapper for pidlocks
Diffstat (limited to 'Annex/Transfer.hs')
-rw-r--r-- | Annex/Transfer.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Annex/Transfer.hs b/Annex/Transfer.hs index 2b0c12c8a..fe428e21a 100644 --- a/Annex/Transfer.hs +++ b/Annex/Transfer.hs @@ -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 |