From 12096af2fab025a2b45b1ac6925d3a269a68b101 Mon Sep 17 00:00:00 2001 From: Frederick Muriuki Muriithi Date: Mon, 24 Feb 2025 10:35:24 -0600 Subject: gn-guile: Set up correct ownership for gn-docs. --- genenetwork/services/genenetwork.scm | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) (limited to 'genenetwork') diff --git a/genenetwork/services/genenetwork.scm b/genenetwork/services/genenetwork.scm index 7861494..3b39f6c 100644 --- a/genenetwork/services/genenetwork.scm +++ b/genenetwork/services/genenetwork.scm @@ -252,7 +252,7 @@ (define (genenetwork-activation config) (match-record config - (gn2-secrets gn3-secrets gn-auth-secrets auth-db llm-db-path genotype-files gn-tmpdir) + (gn2-secrets gn3-secrets gn-auth-secrets auth-db llm-db-path genotype-files gn-tmpdir gn-doc-git-checkout) (with-imported-modules '((guix build utils)) #~(begin (use-modules (guix build utils)) @@ -306,7 +306,15 @@ (find-files full-path #:directories? #t))))) '(("gn2-tmpdir" "gunicorn-genenetwork2") - ("gn3-tmpdir" "gunicorn-genenetwork3"))))))) + ("gn3-tmpdir" "gunicorn-genenetwork3"))) + + ;; setup correct ownership for gn-docs + (for-each (lambda (file) + (chown file + (passwd:uid (getpw "genenetwork")) + (passwd:gid (getpw "genenetwork")))) + (find-files #$gn-doc-git-checkout + #:directories? #t)))))) (define (configuration-file-gexp alist) "Return a G-expression that constructs a configuration file of -- cgit v1.2.3