diff options
Diffstat (limited to 'gnu/machine')
| -rw-r--r-- | gnu/machine/ssh.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gnu/machine/ssh.scm b/gnu/machine/ssh.scm index 73d5dc513ee..0ce28602363 100644 --- a/gnu/machine/ssh.scm +++ b/gnu/machine/ssh.scm | |||
| @@ -542,8 +542,8 @@ failed to switch systems while deploying '~a':~%~{~s ~}") | |||
| 542 | host | 542 | host |
| 543 | (inferior-exception-arguments c)))) | 543 | (inferior-exception-arguments c)))) |
| 544 | os)) | 544 | os)) |
| 545 | (parameterize ((%current-system system) | 545 | (store-parameterize ((%current-system system) |
| 546 | (%current-target-system #f)) | 546 | (%current-target-system #f)) |
| 547 | (with-roll-back #t | 547 | (with-roll-back #t |
| 548 | (mbegin %store-monad | 548 | (mbegin %store-monad |
| 549 | (upgrade-shepherd-services (eval/error-handling c | 549 | (upgrade-shepherd-services (eval/error-handling c |