From d1386d85ca54d77c68709a661170bce3bbe29f1d Mon Sep 17 00:00:00 2001
From: Mathieu Othacehe <othacehe@gnu.org>
Date: Thu, 24 Sep 2020 14:13:57 +0200
Subject: Do not raise an exception at gcroot directory creation.

On fresh Guix System installations, Cuirass will not be allowd to create its
own profile directory. Instead this should be take care of by guix-daemon when
Cuirass will initiate its first connection to it.

* bin/cuirass.in (main): Do not raise an exception on gcroot directory
creation failure.
---
 bin/cuirass.in | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/bin/cuirass.in b/bin/cuirass.in
index c322a71..d6c2695 100644
--- a/bin/cuirass.in
+++ b/bin/cuirass.in
@@ -112,7 +112,9 @@ exec ${GUILE:-@GUILE@} --no-auto-compile -e main -s "$0" "$@"
         (show-version)
         (exit 0))
        (else
-        (mkdir-p (%gc-root-directory))
+        ;; If we cannot create the gcroot directory, it should be done later
+        ;; on by guix-daemon itself.
+        (false-if-exception (mkdir-p (%gc-root-directory)))
         (let ((one-shot? (option-ref opts 'one-shot #f))
               (port (string->number (option-ref opts 'port "8080")))
               (host (option-ref opts 'listen "localhost"))
-- 
cgit v1.2.3