From 79e163ec1182e4b247f3a9b86f9096a96cdd299a Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Thu, 1 Oct 2015 14:07:06 -0400
Subject: refactor

---
 Remote/Git.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Remote')

diff --git a/Remote/Git.hs b/Remote/Git.hs
index 4187a5178..1b5b2ab42 100644
--- a/Remote/Git.hs
+++ b/Remote/Git.hs
@@ -502,8 +502,8 @@ copyToRemote' r key file p
 				ensureInitialized
 				runTransfer (Transfer Download u key) file noRetry noObserver $ const $
 					Annex.Content.saveState True `after`
-						Annex.Content.getViaTmpChecked (liftIO checksuccessio) key
-							(\dest -> mkCopier hardlink params object dest >>= \a -> a p)
+						Annex.Content.getViaTmp key
+							(\dest -> mkCopier hardlink params object dest >>= \a -> a p <&&> liftIO checksuccessio)
 			)
 
 fsckOnRemote :: Git.Repo -> [CommandParam] -> Annex (IO Bool)
-- 
cgit v1.2.3