From 549d390d032f33a0f680d089fc1884e0ea8bfb43 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 27 Jun 2023 19:01:33 -0400 Subject: [PATCH] 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. --- Command/Drop.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/Command/Drop.hs b/Command/Drop.hs index bf0671dde8..0de97c72e0 100644 --- 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 -- 2.30.2