From ad5cb4b69897d29414a7898443a5146bf0a60f34 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Tue, 21 Sep 2021 20:24:40 -0700 Subject: REHOME-CONNECTION: move call to UPLOAD-ALL-PREREQUISITE-DATA It's the fact we're changing to a different home directory that's part of the same root filesystem, and with the same UID/GID ranges, that means we call UPLOAD-ALL-PREREQUISITE-DATA with this connection object. Signed-off-by: Sean Whitton --- src/connection/fork.lisp | 1 - src/connection/rehome.lisp | 4 ++++ 2 files changed, 4 insertions(+), 1 deletion(-) (limited to 'src/connection') diff --git a/src/connection/fork.lisp b/src/connection/fork.lisp index aa1626e..f55896d 100644 --- a/src/connection/fork.lisp +++ b/src/connection/fork.lisp @@ -26,7 +26,6 @@ Must not start up any threads.")) (defmethod continue-connection ((connection fork-connection) remaining) - (upload-all-prerequisite-data connection) (eval-in-grandchild `(post-fork ,connection) `(continue-deploy* ,connection ',remaining) (out err exit) (when-let ((lines (lines out))) diff --git a/src/connection/rehome.lisp b/src/connection/rehome.lisp index 5b57d5f..b8adb8f 100644 --- a/src/connection/rehome.lisp +++ b/src/connection/rehome.lisp @@ -26,6 +26,10 @@ (:documentation "A connection which works by switching to a new HOME on the same host.")) +(defmethod continue-connection + :before ((connection rehome-connection) remaining) + (upload-all-prerequisite-data connection)) + (defmethod connection-upload ((connection rehome-connection) (data file-data)) (with-slots (iden1 iden2 data-version) data (let ((inside (data-pathname -- cgit v1.2.3