diff options
Diffstat (limited to 'tw/services/secrets.scm')
| -rw-r--r-- | tw/services/secrets.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tw/services/secrets.scm b/tw/services/secrets.scm index d417a169..98842393 100644 --- a/tw/services/secrets.scm +++ b/tw/services/secrets.scm @@ -64,9 +64,9 @@ install on the host.")) (unless (file-exists? #$host-key) (format (current-error-port) "No host key found at ~a; creating one now~%" #$host-key) - (unless (status:exit-val - (system* #$(file-append age-keygen "/bin/age-keygen") - "-o" #$host-key)) + (unless (zero? (status:exit-val + (system* #$(file-append age-keygen "/bin/age-keygen") + "-o" #$host-key))) (error "Failed to generate host key at:" #$host-key))) #$@(map secret-install-invocation secrets))))) |