display drop from remote more consistently

With eg copy --to remote

This is particularly an improvement in sync --content output, which
mixes the two, so it's nice to have consistent display.

diff --git a/Command/Drop.hs b/Command/Drop.hs
index bf0671dde871a7890f8c1c26a9187e6b6a3c285a..0de97c72e0d22749647335c74be38c4ee0c9077f 100644 (file)
--- a/Command/Drop.hs
+++ b/Command/Drop.hs
@@ -108,7 +108,8 @@ startLocal pcc afile ai si numcopies mincopies key preverified ud =
 
 startRemote :: PreferredContentChecked -> AssociatedFile -> ActionItem -> SeekInput -> NumCopies -> MinCopies -> Key -> DroppingUnused -> Remote -> CommandStart
 startRemote pcc afile ai si numcopies mincopies key ud remote = 
-       starting ("drop " ++ Remote.name remote) (OnlyActionOn key ai) si $
+       starting "drop" (OnlyActionOn key ai) si $ do
+               showAction $ UnquotedString $ "from " ++ Remote.name remote
                performRemote pcc key afile numcopies mincopies remote ud
 
 performLocal :: PreferredContentChecked -> Key -> AssociatedFile -> NumCopies -> MinCopies -> [VerifiedCopy] -> DroppingUnused -> CommandPerform