From 5d4b18912048b67c144bc56a7bedc8252cbeb932 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Wed, 15 Jun 2022 11:02:54 +0200
Subject: challenge: When using '--diff', do not attempt to chmod symlinks.

This is a followup to 2a2856d5ccd9a9b7df8a94333a277b971a39b150.

* guix/scripts/challenge.scm (make-directory-writable): Do not call
'make-file-writable' on symlinks.
---
 guix/scripts/challenge.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'guix/scripts')

diff --git a/guix/scripts/challenge.scm b/guix/scripts/challenge.scm
index 72d3e850f2..96ffe53a85 100644
--- a/guix/scripts/challenge.scm
+++ b/guix/scripts/challenge.scm
@@ -316,7 +316,8 @@ specified in COMPARISON-REPORT."
 'chmod -R +w DIRECTORY'."
   (file-system-fold (const #t)
                     (lambda (file stat _)         ;leaf
-                      (make-file-writable file))
+                      (unless (eq? 'symlink (stat:type stat))
+                        (make-file-writable file)))
                     (lambda (directory stat _)    ;down
                       (make-file-writable directory))
                     (const #t)                    ;up
-- 
cgit v1.2.3