From 1a1805a2b7952db985cced338e5eb8c7029d320a Mon Sep 17 00:00:00 2001
From: Timo Wilken
Date: Mon, 5 Aug 2024 15:46:01 +0100
Subject: Fix host key generation failure detection

---
 tw/services/secrets.scm | 6 +++---
 1 file 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)))))
 
-- 
cgit v1.2.3