diff options
Diffstat (limited to 'Remote/Git.hs')
| -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) |