diff options
author | Frederick Muriuki Muriithi | 2025-02-24 10:35:24 -0600 |
---|---|---|
committer | Frederick Muriuki Muriithi | 2025-02-24 12:23:46 -0600 |
commit | 12096af2fab025a2b45b1ac6925d3a269a68b101 (patch) | |
tree | 75b7099e97e1bfb4914583363117ab435a675a7a /genenetwork | |
parent | d5a11364996f8fa2a4641082e3486367e6cb755b (diff) | |
download | gn-machines-12096af2fab025a2b45b1ac6925d3a269a68b101.tar.gz |
gn-guile: Set up correct ownership for gn-docs.
Diffstat (limited to 'genenetwork')
-rw-r--r-- | genenetwork/services/genenetwork.scm | 12 |
1 files changed, 10 insertions, 2 deletions
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 <genenetwork-configuration> - (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 |