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 | |
| parent | cd2fff82097ed94dd5b9a5e444fccce685f15e10 (diff) | |
Fix host key generation failure detection
| -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))))) |