diff options
Diffstat (limited to 'gnu/machine')
| -rw-r--r-- | gnu/machine/ssh.scm | 3 |
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 |
