summaryrefslogtreecommitdiff
path: root/Remote
diff options
context:
space:
mode:
authorGravatar Joey Hess <joeyh@joeyh.name>2015-10-01 14:07:06 -0400
committerGravatar Joey Hess <joeyh@joeyh.name>2015-10-01 14:07:06 -0400
commit79e163ec1182e4b247f3a9b86f9096a96cdd299a (patch)
treed6fde3045a65d664ca7e14628e38774cdba55ba5 /Remote
parent5c4125e55b40ff4be98a827298f4173f4e54b41e (diff)
refactor
Diffstat (limited to 'Remote')
-rw-r--r--Remote/Git.hs4
1 files changed, 2 insertions, 2 deletions
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)