diff options
Diffstat (limited to 'Command/Sync.hs')
-rw-r--r-- | Command/Sync.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Command/Sync.hs b/Command/Sync.hs index 9db3c7ad7..5763709ac 100644 --- a/Command/Sync.hs +++ b/Command/Sync.hs @@ -519,7 +519,7 @@ syncFile rs f (k, _) = do wantget have = allM id [ pure (not $ null have) , not <$> inAnnex k - , wantGet True (Just f) + , wantGet True (Just k) (Just f) ] handleget have = ifM (wantget have) ( return [ get have ] @@ -531,7 +531,7 @@ syncFile rs f (k, _) = do wantput r | Remote.readonly r || remoteAnnexReadOnly (Types.Remote.gitconfig r) = return False - | otherwise = wantSend True (Just f) (Remote.uuid r) + | otherwise = wantSend True (Just k) (Just f) (Remote.uuid r) handleput lack = ifM (inAnnex k) ( map put <$> (filterM wantput lack) , return [] |