summaryrefslogtreecommitdiff
path: root/gnu/machine
diff options
context:
space:
mode:
Diffstat (limited to 'gnu/machine')
-rw-r--r--gnu/machine/ssh.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/gnu/machine/ssh.scm b/gnu/machine/ssh.scm
index 93b0a007dab..ecd02e336c1 100644
--- a/gnu/machine/ssh.scm
+++ b/gnu/machine/ssh.scm
@@ -459,7 +459,8 @@ have you run 'guix archive --generate-key?'")
459 (lambda (store) 459 (lambda (store)
460 (guard (condition ((inferior-exception? condition) 460 (guard (condition ((inferior-exception? condition)
461 (values (begin handler ...) store))) 461 (values (begin handler ...) store)))
462 (run-with-store store (eval exp)))))) 462 (values (run-with-store store (eval exp))
463 store)))))
463 464
464 (mbegin %store-monad 465 (mbegin %store-monad
465 (with-roll-back #f 466 (with-roll-back #f