diff options
author | Joey Hess <joey@kitenet.net> | 2010-11-28 15:28:20 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2010-11-28 15:28:20 -0400 |
commit | 653ad35a9f728ed5b3e9b557cdfb15a19b4afe16 (patch) | |
tree | 40e8ed2880ea291f33ef20e931b9d9d1d8c7189c /Backend/URL.hs | |
parent | 92e5d28ca83d057a3d8f5d7d30806642de699172 (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/URL.hs')
-rw-r--r-- | Backend/URL.hs | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/Backend/URL.hs b/Backend/URL.hs index b38ea71c9..3eb7376e0 100644 --- a/Backend/URL.hs +++ b/Backend/URL.hs @@ -22,11 +22,11 @@ backend = Backend { retrieveKeyFile = downloadUrl, -- allow keys to be removed; presumably they can always be -- downloaded again - removeKey = dummyOk, + removeKey = dummyRemove, -- similarly, keys are always assumed to be out there on the web hasKey = dummyOk, -- and nothing needed to fsck - fsckKey = dummyOk + fsckKey = dummyFsck } -- cannot generate url from filename @@ -37,6 +37,12 @@ keyValue _ = return Nothing dummyStore :: FilePath -> Key -> Annex Bool dummyStore _ _ = return False +dummyRemove :: Key -> Maybe a -> Annex Bool +dummyRemove _ _ = return False + +dummyFsck :: Key -> Maybe a -> Annex Bool +dummyFsck _ _ = return True + dummyOk :: Key -> Annex Bool dummyOk _ = return True |