futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki 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
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 2 additions and 1 deletions
Show Stats 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) (lambda (store)
(guard (condition ((inferior-exception? condition) (guard (condition ((inferior-exception? condition)
(values (begin handler ...) store))) (values (begin handler ...) store)))
(run-with-store store (eval exp)))))) (values (run-with-store store (eval exp))
store)))))
(mbegin %store-monad (mbegin %store-monad
(with-roll-back #f (with-roll-back #f