diff options
| -rw-r--r-- | src/connection/fork.lisp | 1 | ||||
| -rw-r--r-- | src/connection/rehome.lisp | 4 |
2 files changed, 4 insertions, 1 deletions
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 |