Add nginx block for "rdf.genenetwork.org". HEAD main

Acked-by: Frederick Muriuki Muriithi <fredmanglis@gmail.com>

1 files changed, 17 insertions, 1 deletions

diff --git a/genenetwork-development.scm b/genenetwork-development.scm
index d874dba..bfd2fc1 100644
--- a/genenetwork-development.scm
+++ b/genenetwork-development.scm
@@ -1428,6 +1428,19 @@ gn-auth."
                                       ";")
                        "proxy_set_header Host $host;")))))))
 
+(define (gn-guile-reverse-proxy-server-block)
+  "Return an <nginx-server-configuration> object to reverse proxy
+gn-guile to display RDF pages."
+  (nginx-server-configuration
+   (server-name '("rdf.genenetwork.org"))
+   (locations
+    (list (nginx-location-configuration
+           (uri "/")
+           (body (list (string-append "proxy_pass http://localhost:"
+                                      (number->string %gn-guile-port)
+                                      ";")
+                       "proxy_set_header Host $host;")))))))
+
 (define set-build-directory-permissions-gexp
   (with-imported-modules '((guix build utils))
     #~(begin
@@ -1452,6 +1465,8 @@ gn-auth."
 (define %gn-auth-port 9094)
 ;; Port on which virtuoso's SPARQL endpoint is listening
 (define %virtuoso-sparql-port 9082)
+;; Port on which gn-guile is listening
+(define %gn-guile-port 8091)
 
 (operating-system
   (host-name "genenetwork-development")
@@ -1576,7 +1591,8 @@ gn-auth."
                                      (list 'gn-bioinformatics
                                            'guix-bioinformatics))
                                     (tissue-reverse-proxy-server-block)
-                                    (gn-auth-reverse-proxy-server-block)))))
+                                    (gn-auth-reverse-proxy-server-block)
+				    (gn-guile-reverse-proxy-server-block)))))
 		   (service guile-sheepdog-service-type
 			    (guile-sheepdog-configuration
 			     (settings-file "/etc/genenetwork/conf/sheepdog.scm")))