From 4c7248c77998d011f8978a32328b8f3817d7acbc Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Sat, 23 Oct 2010 14:26:38 -0400
Subject: [PATCH] factored out getViaTmp

---
 Core.hs | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/Core.hs b/Core.hs
index 176aa2bf38..acb4489c8e 100644
--- a/Core.hs
+++ b/Core.hs
@@ -94,6 +94,24 @@ logStatus key status = do
 	u <- getUUID g
 	liftIO $ logChange g key u status
 
+{- Runs an action, passing it a temporary filename to download,
+ - and if the action succeeds, moves the temp file into 
+ - the annex as a key's content. -}
+getViaTmp :: Key -> (FilePath -> Annex (Bool)) -> Annex ()
+getViaTmp key action = do
+	g <- Annex.gitRepo
+	let dest = annexLocation g key
+	let tmp = (annexTmpLocation g) ++ (keyFile key)
+	liftIO $ createDirectoryIfMissing True (parentDir tmp)
+	success <- action tmp
+	if (success)
+		then do
+			liftIO $ renameFile tmp dest
+			logStatus key ValuePresent
+			showEndOk
+		else do
+			showEndFail
+
 {- Output logging -}
 showStart :: String -> String -> Annex ()
 showStart command file = do