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

finish and use lockContent interface

Browse source
This commit is contained in:
Joey Hess 2015-10-09 12:36:04 -04:00
parent cf79dffa4c
commit ceb5819538
Failed to extract signature
2 changed files with 17 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Types/Remote.hs
View file

@ -30,6 +30,7 @@ import Types.GitConfig
import Types.Availability
import Types.Creds
import Types.UrlContents
import Types.NumCopies
import Config.Cost
import Utility.Metered
import Git.Types
@ -77,9 +78,10 @@ data RemoteA a = Remote {
-- Removes a key's contents (succeeds if the contents are not present)
removeKey :: Key -> a Bool,
-- Uses locking to prevent removal of a key's contents,
-- and runs the passed action while it's locked.
-- thus producing a VerifiedCopy.
-- The action must be run whether or not the locking succeeds.
-- This is optional; remotes do not have to support locking.
lockContent :: forall r. Maybe (Key -> a r -> a r),
lockContent :: forall r. Maybe (Key -> (Maybe VerifiedCopy -> a r) -> a r),
-- Checks if a key is present in the remote.
-- Throws an exception if the remote cannot be accessed.
checkPresent :: Key -> a Bool,