From cad916d92695c7c04d3cdacbcd333a2dcd109d53 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Tue, 12 Oct 2010 16:52:01 -0400
Subject: [PATCH] hookup annexgetfile

---
 Annex.hs   | 19 ++++++++++++-------
 Backend.hs |  2 ++
 2 files changed, 14 insertions(+), 7 deletions(-)

diff --git a/Annex.hs b/Annex.hs
index 1752cabffc..7ac9932f1d 100644
--- a/Annex.hs
+++ b/Annex.hs
@@ -24,8 +24,8 @@ import LocationLog
 import Types
 
 {- An annexed file's content is stored somewhere under .git/annex/ -}
-annexDir :: GitRepo -> Key -> FilePath
-annexDir repo key = gitDir repo ++ "/annex/" ++ key
+annexLocation :: GitRepo -> Key -> FilePath
+annexLocation repo key = gitDir repo ++ "/annex/" ++ key
 
 {- On startup, examine the git repo, prepare it, and record state for
  - later. -}
@@ -55,7 +55,7 @@ annexFile state file = do
 				Just key -> symlink key
 	where
 		symlink key = do
-			let dest = annexDir (repo state) key
+			let dest = annexLocation (repo state) key
 			createDirectoryIfMissing True (parentDir dest)
 			renameFile file dest
 			createSymbolicLink dest file
@@ -77,7 +77,7 @@ unannexFile state file = do
 			case (mkey) of
 				Nothing -> return ()
 				Just key -> do
-					let src = annexDir (repo state) key
+					let src = annexLocation (repo state) key
 					removeFile file
 					renameFile src file
 					return ()
@@ -88,9 +88,14 @@ annexGetFile state file = do
 	alreadyannexed <- lookupBackend state file
 	case (alreadyannexed) of
 		Nothing -> error $ "not annexed " ++ file
-		Just _ -> do error "not implemented" -- TODO
-			-- 1. find remote with file
-			-- 2. copy file from remote
+		Just backend -> do
+			key <- lookupKey state backend file
+			let dest = annexLocation (repo state) key
+			createDirectoryIfMissing True (parentDir dest)
+			success <- retrieveFile state file dest
+			if (success)
+				then return ()
+				else error $ "failed to get " ++ file
 
 {- Indicates a file is wanted. -}
 annexWantFile :: State -> FilePath -> IO ()
diff --git a/Backend.hs b/Backend.hs
index f03f098cf1..9d1b0cdbee 100644
--- a/Backend.hs
+++ b/Backend.hs
@@ -19,6 +19,8 @@
 module Backend (
 	lookupBackend,
 	storeFile,
+	retrieveFile,
+	lookupKey,
 	dropFile
 ) where