From e29210d1dddb79abc0f93fc5175add8e10455688 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Mon, 25 Oct 2010 14:10:38 -0400
Subject: update

---
 Core.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'Core.hs')

diff --git a/Core.hs b/Core.hs
index acb4489c8..1d887792a 100644
--- a/Core.hs
+++ b/Core.hs
@@ -97,7 +97,7 @@ logStatus key status = do
 {- 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 -> (FilePath -> Annex Bool) -> Annex Bool
 getViaTmp key action = do
 	g <- Annex.gitRepo
 	let dest = annexLocation g key
@@ -108,9 +108,9 @@ getViaTmp key action = do
 		then do
 			liftIO $ renameFile tmp dest
 			logStatus key ValuePresent
-			showEndOk
+			return True
 		else do
-			showEndFail
+			return False
 
 {- Output logging -}
 showStart :: String -> String -> Annex ()
-- 
cgit v1.2.3