From fe509e017fa1c0e3d0b057784b081def3aa621ad Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Thu, 3 Jun 2021 12:33:08 +0200
Subject: machine: ssh: Respect calling convention for monadic procedures.

Fixes a regression introduced in
2885c3568edec35086f8feeae5b60259cbea407c.

Reported by Mathieu Othacehe.

* gnu/machine/ssh.scm (deploy-managed-host)[eval/error-handling]: Return
two values in the standard case.
---
 gnu/machine/ssh.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'gnu/machine')

diff --git a/gnu/machine/ssh.scm b/gnu/machine/ssh.scm
index 93b0a007da..ecd02e336c 100644
--- a/gnu/machine/ssh.scm
+++ b/gnu/machine/ssh.scm
@@ -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
-- 
cgit v1.2.3