summaryrefslogtreecommitdiff
path: root/Backend.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2010-11-28 15:28:20 -0400
committerGravatar Joey Hess <joey@kitenet.net>2010-11-28 15:28:20 -0400
commit653ad35a9f728ed5b3e9b557cdfb15a19b4afe16 (patch)
tree40e8ed2880ea291f33ef20e931b9d9d1d8c7189c /Backend.hs
parent92e5d28ca83d057a3d8f5d7d30806642de699172 (diff)
In .gitattributes, the git-annex-numcopies attribute can be used to control the number of copies to retain of different types of files.
Diffstat (limited to 'Backend.hs')
-rw-r--r--Backend.hs8
1 files changed, 4 insertions, 4 deletions
diff --git a/Backend.hs b/Backend.hs
index d5d8efa03..8e17f253f 100644
--- a/Backend.hs
+++ b/Backend.hs
@@ -104,8 +104,8 @@ retrieveKeyFile :: Backend -> Key -> FilePath -> Annex Bool
retrieveKeyFile backend key dest = (Internals.retrieveKeyFile backend) key dest
{- Removes a key from a backend. -}
-removeKey :: Backend -> Key -> Annex Bool
-removeKey backend key = (Internals.removeKey backend) key
+removeKey :: Backend -> Key -> Maybe Int -> Annex Bool
+removeKey backend key numcopies = (Internals.removeKey backend) key numcopies
{- Checks if a key is present in its backend. -}
hasKey :: Key -> Annex Bool
@@ -114,8 +114,8 @@ hasKey key = do
(Internals.hasKey backend) key
{- Checks a key's backend for problems. -}
-fsckKey :: Backend -> Key -> Annex Bool
-fsckKey backend key = (Internals.fsckKey backend) key
+fsckKey :: Backend -> Key -> Maybe Int -> Annex Bool
+fsckKey backend key numcopies = (Internals.fsckKey backend) key numcopies
{- Looks up the key and backend corresponding to an annexed file,
- by examining what the file symlinks to. -}