diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-10-01 14:07:06 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-10-01 14:07:06 -0400 |
| commit | 79e163ec1182e4b247f3a9b86f9096a96cdd299a (patch) | |
| tree | d6fde3045a65d664ca7e14628e38774cdba55ba5 /Remote | |
| parent | 5c4125e55b40ff4be98a827298f4173f4e54b41e (diff) | |
refactor
Diffstat (limited to 'Remote')
| -rw-r--r-- | Remote/Git.hs | 4 |
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) |