gn-uploader: Configure link to GN2 server.

1 files changed, 5 insertions, 2 deletions

diff --git a/genenetwork/services/genenetwork.scm b/genenetwork/services/genenetwork.scm
index 3691314..37793a5 100644
--- a/genenetwork/services/genenetwork.scm
+++ b/genenetwork/services/genenetwork.scm
@@ -121,6 +121,8 @@
            (default "/etc/genenetwork/gn-uploader-secrets.py"))
   (auth-server-url gn-uploader-auth-server-url
                    (default "https://auth.genenetwork.org"))
+  (gn2-server-url gn-uploader-gn2-server-url
+                  (default "https://genenetwork.org"))
   (log-level gn-uploader-log-level (default "WARNING")))
 
 (define %genenetwork-accounts
@@ -516,7 +518,7 @@ a @code{<genenetwork-configuration>} record."
 
 (define (gn-uploader-gunicorn-app config)
   (match-record config <gn-uploader-configuration>
-    (gn-uploader sql-uri port data-directory secrets log-level auth-server-url)
+    (gn-uploader sql-uri port data-directory secrets log-level auth-server-url gn2-server-url)
     ;; If we mapped only the mysqld.sock socket file, it would break
     ;; when the external mysqld server is restarted.
     (let ((database-mapping (file-system-mapping
@@ -529,7 +531,8 @@ a @code{<genenetwork-configuration>} record."
                                               ("SQL_URI" ,sql-uri)
                                               ("UPLOAD_FOLDER" ,(string-append data-directory
                                                                                "/uploads"))
-                                              ("AUTH_SERVER_URL" ,auth-server-url)))))
+                                              ("AUTH_SERVER_URL" ,auth-server-url)
+                                              ("GN2_SERVER_URL" ,gn2-server-url)))))
           (gn-uploader-profile (profile
                                 (content (package->development-manifest gn-uploader))
                                 (allow-collisions? #t))))