From dcee63c83872be527b06e3f56abd492f0fe9e428 Mon Sep 17 00:00:00 2001
From: Frederick Muriuki Muriithi
Date: Fri, 28 Jun 2024 15:43:22 -0500
Subject: Fix permissions: Only files are read-only

Directories need the execute bit set to actually be accessible to the
owner.
---
 genenetwork/services/genenetwork.scm | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

(limited to 'genenetwork')

diff --git a/genenetwork/services/genenetwork.scm b/genenetwork/services/genenetwork.scm
index 0f2e1d6..7347d4c 100644
--- a/genenetwork/services/genenetwork.scm
+++ b/genenetwork/services/genenetwork.scm
@@ -162,9 +162,11 @@
           ;; Set owner-only permissions on secrets files.
           (for-each (lambda (file)
                       (chmod file #o600))
-                    (list #$gn2-secrets
-                          #$gn3-secrets
-                          #$gn-auth-secrets))))))
+                    (append (list #$gn3-secrets)
+                            (find-files #$gn2-secrets
+                                        #:directories? #f)
+                            (find-files #$gn-auth-secrets
+                                        #:directories? #f)))))))
 
 (define (configuration-file-gexp alist)
   "Return a G-expression that constructs a configuration file of
-- 
cgit v1.2.3