summaryrefslogtreecommitdiff
path: root/BackendFile.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2010-10-10 15:04:18 -0400
committerGravatar Joey Hess <joey@kitenet.net>2010-10-10 15:04:18 -0400
commitcc235192353561a374c431485c6c3834659e0fa6 (patch)
tree6c092eece822fea609a05acb92850669223c6508 /BackendFile.hs
parentf4d2a05e86df464790fb183148717e7ac7f49cda (diff)
update
Diffstat (limited to 'BackendFile.hs')
-rw-r--r--BackendFile.hs15
1 files changed, 11 insertions, 4 deletions
diff --git a/BackendFile.hs b/BackendFile.hs
index b1a3be58a..324a4d8cd 100644
--- a/BackendFile.hs
+++ b/BackendFile.hs
@@ -7,11 +7,18 @@ import Backend
backend = Backend {
name = "file",
- keyvalue = keyValue,
- retrievekey = copyFile
+ getKey = keyValue,
+ storeFileKey = moveToAnnex,
+ retrieveKeyFile = copyFromOtherRepo
}
-- direct mapping from filename to key
-keyValue k = Just $ id k
+keyValue :: FilePath -> IO (Maybe Key)
+keyValue k = return $ Just $ id k
+
+moveToAnnex :: FilePath -> Key -> IO (Bool)
+moveToAnnex file key = return False
+
+copyFromOtherRepo :: IO Key -> FilePath -> IO (Bool)
+copyFromOtherRepo key file = return False
-copyFile f = error "unimplemented"