summaryrefslogtreecommitdiff
path: root/TypeInternals.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 /TypeInternals.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 'TypeInternals.hs')
-rw-r--r--TypeInternals.hs9
1 files changed, 6 insertions, 3 deletions
diff --git a/TypeInternals.hs b/TypeInternals.hs
index bcef4ee0a..9acc06bb3 100644
--- a/TypeInternals.hs
+++ b/TypeInternals.hs
@@ -72,12 +72,15 @@ data Backend = Backend {
storeFileKey :: FilePath -> Key -> Annex Bool,
-- retrieves a key's contents to a file
retrieveKeyFile :: Key -> FilePath -> Annex Bool,
- -- removes a key
- removeKey :: Key -> Annex Bool,
+ -- removes a key, optionally checking that enough copies are stored
+ -- elsewhere
+ removeKey :: Key -> Maybe Int -> Annex Bool,
-- checks if a backend is storing the content of a key
hasKey :: Key -> Annex Bool,
-- called during fsck to check a key
- fsckKey :: Key -> Annex Bool
+ -- (second parameter may be the number of copies that there should
+ -- be of the key)
+ fsckKey :: Key -> Maybe Int -> Annex Bool
}
instance Show Backend where