tribes/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-06 13:10:33 +02:00
Code Activity

machine: ssh: Respect calling convention for monadic procedures.

Browse Source 
Fixes a regression introduced in
2885c3568e.

Reported by Mathieu Othacehe.

* gnu/machine/ssh.scm (deploy-managed-host)[eval/error-handling]: Return
two values in the standard case.
This commit is contained in:
Ludovic Courtès
2021-06-03 12:33:08 +02:00
parent 0928e55266
commit fe509e017f
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
gnu/machine/ssh.scm
View File

@@ -459,7 +459,8 @@ have you run 'guix archive --generate-key?'")
(lambda (store)
(guard (condition ((inferior-exception? condition)
(values (begin handler ...) store)))
(run-with-store store (eval exp))))))
(values (run-with-store store (eval exp))
store)))))
(mbegin %store-monad
(with-roll-back #f