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

use REMOVE-BEFORE in P2P protocol

Browse source 
Only clusters still need to be fixed to close this todo.
This commit is contained in:
Joey Hess 2024-07-04 13:42:09 -04:00
parent 1243af4a18
commit 99b7a0cfe9
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
5 changed files with 72 additions and 47 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Annex/SafeDropProof.hs
View file

@ -23,12 +23,12 @@ safeDropProofExpired :: Annex ()
safeDropProofExpired = do
showNote "unsafe"
showLongNote $ UnquotedString
"Dropping took too long, and locks on remotes may have expired."
"Dropping took too long, and locks may have expired."
checkSafeDropProofEndTime :: Maybe SafeDropProof -> IO Bool
checkSafeDropProofEndTime p = case safeDropProofEndTime =<< p of
Nothing -> return True
Just t -> do
Just endtime -> do
now <- getPOSIXTime
return (t < now)
return (endtime > now)