diff options
Diffstat (limited to 'Annex/Drop.hs')
| -rw-r--r-- | Annex/Drop.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Annex/Drop.hs b/Annex/Drop.hs index df64895be..3e915c315 100644 --- a/Annex/Drop.hs +++ b/Annex/Drop.hs @@ -92,7 +92,7 @@ handleDropsFrom locs rs reason fromhere key (Just afile) knownpresentremote = do checkdrop fs n@(have, numcopies, _untrusted) u a = ifM (allM (wantDrop True u . Just) fs) - ( ifM (safely $ doCommand $ a (Just numcopies)) + ( ifM (safely $ callCommand $ a (Just numcopies)) ( do liftIO $ debugM "drop" $ unwords [ "dropped" |