From 1120153af159a54edba677fda604ba5c9b36e80c Mon Sep 17 00:00:00 2001 From: Frederick Muriuki Muriithi Date: Wed, 12 Jun 2024 13:56:53 -0500 Subject: gn-uploader: Setup profile path The profile path is necessary for use retrieving the included bootstrap content. --- genenetwork/services/genenetwork.scm | 15 ++++++++++++--- 1 file changed, 12 insertions(+), 3 deletions(-) (limited to 'genenetwork') diff --git a/genenetwork/services/genenetwork.scm b/genenetwork/services/genenetwork.scm index 4f3b069..a3eca2b 100644 --- a/genenetwork/services/genenetwork.scm +++ b/genenetwork/services/genenetwork.scm @@ -425,7 +425,10 @@ a @code{} record." `(("QCAPP_SECRETS" ,secrets) ("SQL_URI" ,sql-uri) ("UPLOAD_FOLDER" ,(string-append data-directory - "/uploads"))))))) + "/uploads")))))) + (gn-uploader-profile (profile + (content (package->development-manifest gn-uploader)) + (allow-collisions? #t)))) (list (gunicorn-app (name "gn-uploader") (package gn-uploader) @@ -439,7 +442,10 @@ a @code{} record." (value gn-uploader-conf)) (environment-variable (name "HOME") - (value "/tmp")))) + (value "/tmp")) + (environment-variable + (name "GN_UPLOADER_ENVIRONMENT") + (value gn-uploader-profile)))) (mappings (list database-mapping (file-system-mapping (source gn-uploader-conf) @@ -450,7 +456,10 @@ a @code{} record." (file-system-mapping (source data-directory) (target source) - (writable? #t)))) + (writable? #t)) + (file-system-mapping + (source gn-uploader-profile) + (target source)))) (extra-cli-arguments (list "--log-level" log-level))))))) (define (gn-uploader-nginx-server-block config) -- cgit v1.2.3