From cc235192353561a374c431485c6c3834659e0fa6 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Sun, 10 Oct 2010 15:04:18 -0400
Subject: update

---
 BackendFile.hs | 15 +++++++++++----
 1 file changed, 11 insertions(+), 4 deletions(-)

(limited to 'BackendFile.hs')

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"
-- 
cgit v1.2.3