aboutsummaryrefslogtreecommitdiff
path: root/genenetwork
diff options
context:
space:
mode:
authorFrederick Muriuki Muriithi2024-06-28 15:21:59 -0500
committerFrederick Muriuki Muriithi2024-06-28 15:33:47 -0500
commit8673a19d4a7a01e277d7d39c4947043fbc11d631 (patch)
tree43c32fb338b9184fe6ed702daf5c45e5c18b8940 /genenetwork
parenta1c915ff4e6cfb516a1808cd2df54728d1489e62 (diff)
downloadgn-machines-8673a19d4a7a01e277d7d39c4947043fbc11d631.tar.gz
Make relevant services available to each service.
Diffstat (limited to 'genenetwork')
-rw-r--r--genenetwork/services/genenetwork.scm18
1 files changed, 12 insertions, 6 deletions
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")))