diff options
Diffstat (limited to 'Command/Drop.hs')
| -rw-r--r-- | Command/Drop.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Command/Drop.hs b/Command/Drop.hs index b03e3e080..275714a65 100644 --- a/Command/Drop.hs +++ b/Command/Drop.hs @@ -89,12 +89,12 @@ startKeys o key = start' o key (AssociatedFile Nothing) startLocal :: AssociatedFile -> ActionItem -> NumCopies -> Key -> [VerifiedCopy] -> CommandStart startLocal afile ai numcopies key preverified = stopUnless (inAnnex key) $ do - showStart' "drop" key ai + showStartKey "drop" key ai next $ performLocal key afile numcopies preverified startRemote :: AssociatedFile -> ActionItem -> NumCopies -> Key -> Remote -> CommandStart startRemote afile ai numcopies key remote = do - showStart' ("drop " ++ Remote.name remote) key ai + showStartKey ("drop " ++ Remote.name remote) key ai next $ performRemote key afile numcopies remote performLocal :: Key -> AssociatedFile -> NumCopies -> [VerifiedCopy] -> CommandPerform |