summaryrefslogtreecommitdiff
path: root/BackendFile.hs
diff options
context:
space:
mode:
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"