summaryrefslogtreecommitdiff
path: root/BackendFile.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2010-10-10 19:53:31 -0400
committerGravatar Joey Hess <joey@kitenet.net>2010-10-10 19:53:31 -0400
commit344f13394fe5b12cbdd5eeb99bb63892c7096bfd (patch)
tree478ad78d49e9c3515bee1cd2afd24d3e435a19eb /BackendFile.hs
parent93d2dc0d6878ccb1067376d2a03193c222429d3e (diff)
update
Diffstat (limited to 'BackendFile.hs')
-rw-r--r--BackendFile.hs10
1 files changed, 7 insertions, 3 deletions
diff --git a/BackendFile.hs b/BackendFile.hs
index deb4bce7e..de60803c3 100644
--- a/BackendFile.hs
+++ b/BackendFile.hs
@@ -9,7 +9,8 @@ backend = Backend {
name = "file",
getKey = keyValue,
storeFileKey = dummyStore,
- retrieveKeyFile = copyFromOtherRepo
+ retrieveKeyFile = copyFromOtherRepo,
+ removeKey = dummyRemove
}
-- direct mapping from filename to key
@@ -18,11 +19,14 @@ keyValue repo file = return $ Just file
{- This backend does not really do any independant data storage,
- it relies on the file contents in .git/annex/ in this repo,
- - and other accessible repos. So storing a file is a no-op. -}
+ - and other accessible repos. So storing or removing a key is
+ - a no-op. -}
dummyStore :: GitRepo -> FilePath -> Key -> IO (Bool)
dummyStore repo file key = return True
+dummyRemove :: Key -> IO Bool
+dummyRemove url = return False
{- Try to find a copy of the file in one of the other repos,
- and copy it over to this one. -}
-copyFromOtherRepo :: IO Key -> FilePath -> IO (Bool)
+copyFromOtherRepo :: Key -> FilePath -> IO (Bool)
copyFromOtherRepo key file = error "copyFromOtherRepo unimplemented" -- TODO