From e5df4239e626675b24c5347e3eae90699c76f313 Mon Sep 17 00:00:00 2001
From: Timo Wilken
Date: Sun, 25 Feb 2024 23:41:47 +0100
Subject: Protect against container failing to start

---
 tw/services/docker.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'tw/services/docker.scm')

diff --git a/tw/services/docker.scm b/tw/services/docker.scm
index 46c7a933..0f982836 100644
--- a/tw/services/docker.scm
+++ b/tw/services/docker.scm
@@ -121,7 +121,8 @@ system that this container relies on."))
                           (string-trim-both (get-string-all pipe) char-whitespace?)))
                     (close-pipe pipe)
                     ;; We expect a hexadecimal container ID from `docker run'.
-                    (and (every (cut char-set-contains? hex <>)
+                    (and (not (string=? "" container-id))
+                         (every (cut char-set-contains? hex <>)
                                 (string->list container-id))
                          container-id))))
        ;; First arg is shepherd's "running value", i.e. whatever `start' returned.
-- 
cgit v1.2.3