diff options
| author | Sergey Trofimov <sarg@sarg.org.ru> | 2025-03-18 21:49:30 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2025-06-06 18:43:25 +0200 |
| commit | 60f8d67480c8cf4ea45c51fbedea167fbeb66c2a (patch) | |
| tree | 39a342fbd48723c9081139d07e673965f2f0db98 /gnu/machine | |
| parent | b5745a327e8dae21caaf10b59256dc7b16d54588 (diff) | |
machine: ssh: Use store-parameterize in a monad.
* gnu/machine/ssh (deploy-managed-host): Use store-parameterize in
monadic context.
Change-Id: I6441a5dac856633f2c2a00b77f21a385bf3a9510
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
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 73d5dc513e..0ce2860236 100644 --- a/gnu/machine/ssh.scm +++ b/gnu/machine/ssh.scm @@ -542,8 +542,8 @@ failed to switch systems while deploying '~a':~%~{~s ~}") host (inferior-exception-arguments c)))) os)) - (parameterize ((%current-system system) - (%current-target-system #f)) + (store-parameterize ((%current-system system) + (%current-target-system #f)) (with-roll-back #t (mbegin %store-monad (upgrade-shepherd-services (eval/error-handling c |