diff options
author | Timo Wilken | 2024-08-05 15:46:01 +0100 |
---|---|---|
committer | Timo Wilken | 2024-08-05 15:46:01 +0100 |
commit | 1a1805a2b7952db985cced338e5eb8c7029d320a (patch) | |
tree | 127889bf40f5d3c760bcb7bd62213b24df52aabf /tw/services | |
parent | cd2fff82097ed94dd5b9a5e444fccce685f15e10 (diff) |
Fix host key generation failure detection
Diffstat (limited to 'tw/services')
-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))))) |