From 3e6f65be7ae6f895ceb38f9a129c95e08761182b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Sun, 22 Mar 2020 12:26:05 +0100 Subject: copy: Use 'with-build-handler'. * guix/scripts/copy.scm (send-to-remote-host): Remove explicit 'show-what-to-build' call. Call 'build-derivations' unconditionally. (guix-copy): Wrap 'with-status-verbosity' in 'with-build-handler'. --- guix/scripts/copy.scm | 19 +++++++++---------- 1 file changed, 9 insertions(+), 10 deletions(-) diff --git a/guix/scripts/copy.scm b/guix/scripts/copy.scm index fdb684c6b6..2fa31ecf45 100644 --- a/guix/scripts/copy.scm +++ b/guix/scripts/copy.scm @@ -68,12 +68,7 @@ package names, build the underlying packages before sending them." (ssh-spec->user+host+port target)) ((drv items) (options->derivations+files local opts))) - (show-what-to-build local drv - #:use-substitutes? (assoc-ref opts 'substitutes?) - #:dry-run? (assoc-ref opts 'dry-run?)) - - (and (or (assoc-ref opts 'dry-run?) - (build-derivations local drv)) + (and (build-derivations local drv) (let* ((session (open-ssh-session host #:user user #:port (or port 22))) (sent (send-files local items @@ -178,7 +173,11 @@ Copy ITEMS to or from the specified host over SSH.\n")) (target (assoc-ref opts 'destination))) (with-store store (set-build-options-from-command-line store opts) - (with-status-verbosity (assoc-ref opts 'verbosity) - (cond (target (send-to-remote-host store target opts)) - (source (retrieve-from-remote-host store source opts)) - (else (leave (G_ "use '--to' or '--from'~%"))))))))) + (with-build-handler (build-notifier #:use-substitutes? + (assoc-ref opts 'substitutes?) + #:dry-run? + (assoc-ref opts 'dry-run?)) + (with-status-verbosity (assoc-ref opts 'verbosity) + (cond (target (send-to-remote-host store target opts)) + (source (retrieve-from-remote-host store source opts)) + (else (leave (G_ "use '--to' or '--from'~%")))))))))) -- cgit v1.2.3