From 87e3ad6e3709f9fb5a397dd023919b01cea2abfd Mon Sep 17 00:00:00 2001
From: Frederick Muriuki Muriithi
Date: Thu, 13 Feb 2025 14:46:34 -0600
Subject: Grant ownership of genotype-files to GN2 user.

---
 genenetwork/services/genenetwork.scm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/genenetwork/services/genenetwork.scm b/genenetwork/services/genenetwork.scm
index 3f9a823..01ad8e7 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)
+    (gn2-secrets gn3-secrets gn-auth-secrets auth-db llm-db-path genotype-files)
     (with-imported-modules '((guix build utils))
       #~(begin
           (use-modules (guix build utils))
@@ -272,6 +272,8 @@
                              (passwd:uid (getpw "gunicorn-genenetwork2"))
                              (passwd:gid (getpw "gunicorn-genenetwork2"))))
                     (append (list #$gn2-secrets)
+                            (find-files #$genotype-files
+                                        #:directories? #t)
                             (find-files #$gn2-secrets
                                         #:directories? #t)))
           (for-each (lambda (file)
@@ -398,7 +400,8 @@ object."
              (mappings (list database-mapping
                              (file-system-mapping
                               (source genotype-files)
-                              (target source))
+                              (target source)
+                              (writable? #t))
                              (file-system-mapping
                               (source gn-sourcecode-directory)
                               (target source))
-- 
cgit v1.2.3