diff options
| author | Arun Isaac <arunisaac@systemreboot.net> | 2025-01-07 00:12:54 +0000 |
|---|---|---|
| committer | Arun Isaac <arunisaac@systemreboot.net> | 2025-02-27 22:52:27 +0000 |
| commit | 55a5181e745131e5369beaf59d4d406da92b5617 (patch) | |
| tree | 993c02a455917e58039305bd7dd30dafd28b41fe | |
| parent | 4529c4bea116413da0d2799d0239fca2eeb2ff90 (diff) | |
| download | guix-55a5181e745131e5369beaf59d4d406da92b5617.tar.gz guix-55a5181e745131e5369beaf59d4d406da92b5617.zip | |
machine: ssh: Return monadic value from roll-back-managed-host.
Previously, <unspecified> would be returned. That was a bug. Monadic
procedures must always return monadic values.
* gnu/machine/ssh.scm (roll-back-managed-host): Return monadic value.
Change-Id: I3db2879dbfbcab5e9d251fa5ed02c8653adbeafb
| -rw-r--r-- | gnu/machine/ssh.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gnu/machine/ssh.scm b/gnu/machine/ssh.scm index bc4289ef7d..73d5dc513e 100644 --- a/gnu/machine/ssh.scm +++ b/gnu/machine/ssh.scm @@ -2,6 +2,7 @@ ;;; Copyright © 2019 Jakob L. Kreuze <zerodaysfordays@sdf.org> ;;; Copyright © 2020-2024 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2024 Ricardo <rekado@elephly.net> +;;; Copyright © 2025 Arun Isaac <arunisaac@systemreboot.net> ;;; ;;; This file is part of GNU Guix. ;;; @@ -621,8 +622,9 @@ an environment type of 'managed-host." #:store-directory-prefix store-dir #:old-entries old-entries))) (remote-result (machine-remote-eval machine remote-exp))) - (when (eqv? 'error remote-result) - (raise roll-back-failure)))) + (if (eqv? 'error remote-result) + (raise roll-back-failure) + (return remote-result)))) ;;; |