From 8673a19d4a7a01e277d7d39c4947043fbc11d631 Mon Sep 17 00:00:00 2001
From: Frederick Muriuki Muriithi
Date: Fri, 28 Jun 2024 15:21:59 -0500
Subject: Make relevant services available to each service.

---
 genenetwork/services/genenetwork.scm | 18 ++++++++++++------
 1 file changed, 12 insertions(+), 6 deletions(-)

(limited to 'genenetwork/services/genenetwork.scm')

diff --git a/genenetwork/services/genenetwork.scm b/genenetwork/services/genenetwork.scm
index bc9911e..0f2e1d6 100644
--- a/genenetwork/services/genenetwork.scm
+++ b/genenetwork/services/genenetwork.scm
@@ -143,13 +143,19 @@
                       (chown file
                              (passwd:uid (getpw "gunicorn-gn-auth"))
                              (passwd:gid (getpw "gunicorn-gn-auth"))))
-                    (cons #$gn-auth-secrets
-                          (find-files #$(dirname auth-db)
-                                      #:directories? #t)))
+                    (append (list #$gn-auth-secrets)
+                            (find-files #$(dirname auth-db)
+                                        #:directories? #t)
+                            (find-files #$gn-auth-secrets
+                                        #:directories? #t)))
           ;; Let each service user own their own secrets files.
-          (chown #$gn2-secrets
-                 (passwd:uid (getpw "gunicorn-genenetwork2"))
-                 (passwd:gid (getpw "gunicorn-genenetwork2")))
+          (for-each (lambda (file)
+                      (chown file
+                             (passwd:uid (getpw "gunicorn-genenetwork2"))
+                             (passwd:gid (getpw "gunicorn-genenetwork2"))))
+                    (append (list #$gn2-secrets)
+                            (find-files #$gn2-secrets
+                                        #:directories? #t)))
           (chown #$gn3-secrets
                  (passwd:uid (getpw "gunicorn-genenetwork3"))
                  (passwd:gid (getpw "gunicorn-genenetwork3")))
-- 
cgit v1.2.3