about summary refs log tree commit diff
diff options
context:
space:
mode:
authorFrederick Muriuki Muriithi2026-06-04 10:47:06 -0500
committerFrederick Muriuki Muriithi2026-06-15 09:21:42 -0500
commitaecaac3d9764807d26c77614348f1331932214fd (patch)
tree7b86a5217d1bcbd62275423e7106e0004d7de260
parentc65bb3fece2c362655c68b3e80278339fe705527 (diff)
downloadgn-machines-aecaac3d9764807d26c77614348f1331932214fd.tar.gz
Extract the GeneNetwork system configuration.
The system configuration is useful in multiple places we need to build up
scripts to intern into the store. It makes sense, in that context, to extract
the configuration object and make it shareable.
-rw-r--r--genenetwork-development.scm31
1 files changed, 17 insertions, 14 deletions
diff --git a/genenetwork-development.scm b/genenetwork-development.scm
index 941d2eb..3afa63d 100644
--- a/genenetwork-development.scm
+++ b/genenetwork-development.scm
@@ -1499,6 +1499,22 @@ gn-guile to display RDF pages."
 ;; Port on which gn-guile is listening
 (define %gn-guile-port 8091)
 
+(define %genenetwork-configuration
+  (genenetwork-configuration
+   (gn2-port %genenetwork2-port)
+   (gn3-port %genenetwork3-port)
+   (gn-auth-port %gn-auth-port)
+   (gn2-secrets "/etc/genenetwork/conf/gn2")
+   (gn3-secrets "/etc/genenetwork/conf/gn3/secrets.py")
+   (gn-auth-secrets "/etc/genenetwork/conf/gn-auth")
+   (genotype-files "/export/data/genenetwork/genotype_files")
+   (sparql-endpoint (string-append "http://localhost:"
+                                   (number->string %virtuoso-sparql-port)
+                                   "/sparql"))
+   (data-directory "/export/data/genenetwork")
+   (xapian-db-path %xapian-directory)))
+
+
 (operating-system
   (host-name "genenetwork-development")
   (timezone "UTC")
@@ -1575,20 +1591,7 @@ gn-guile to display RDF pages."
                              (server-port 9081)
                              (dirs-allowed (list "/var/lib/data"))
                              (http-server-port %virtuoso-sparql-port)))
-                   (service genenetwork-service-type
-                            (genenetwork-configuration
-                             (gn2-port %genenetwork2-port)
-                             (gn3-port %genenetwork3-port)
-                             (gn-auth-port %gn-auth-port)
-                             (gn2-secrets "/etc/genenetwork/conf/gn2")
-                             (gn3-secrets "/etc/genenetwork/conf/gn3/secrets.py")
-                             (gn-auth-secrets "/etc/genenetwork/conf/gn-auth")
-                             (genotype-files "/export/data/genenetwork/genotype_files")
-                             (sparql-endpoint (string-append "http://localhost:"
-                                                             (number->string %virtuoso-sparql-port)
-                                                             "/sparql"))
-                             (data-directory "/export/data/genenetwork")
-                             (xapian-db-path %xapian-directory)))
+                   (service genenetwork-service-type %genenetwork-configuration)
                    (simple-service 'set-build-directory-permissions
                                    activation-service-type
                                    set-build-directory-permissions-gexp)