diff options
| author | Frederick Muriuki Muriithi | 2025-01-28 11:41:51 -0600 |
|---|---|---|
| committer | Frederick Muriuki Muriithi | 2025-01-28 11:41:51 -0600 |
| commit | f0fa20e7bbf8fba25fe994aab6860a2daabc71f4 (patch) | |
| tree | 8703d30c8d8a3274ff7ac745b43536a400be4463 /genenetwork | |
| parent | 67e2873ada9884cce735f0177b4f70b83f98b20c (diff) | |
| download | gn-machines-f0fa20e7bbf8fba25fe994aab6860a2daabc71f4.tar.gz | |
gn-uploader: gn-uploader-gunicorn-app: Switch from `let` to `let*`
The `gn-uploader-ca-bundle` variable needs the value from the
`gn-uploader-profile` variable.
Diffstat (limited to 'genenetwork')
| -rw-r--r-- | genenetwork/services/genenetwork.scm | 32 |
1 files changed, 16 insertions, 16 deletions
diff --git a/genenetwork/services/genenetwork.scm b/genenetwork/services/genenetwork.scm index f723c47..f1a1c88 100644 --- a/genenetwork/services/genenetwork.scm +++ b/genenetwork/services/genenetwork.scm @@ -655,22 +655,22 @@ a @code{<genenetwork-configuration>} record." (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 - (source "/run/mysqld") - (target source) - (writable? #t))) - (gn-uploader-conf (computed-file "gn-uploader.conf" - (configuration-file-gexp - `(("UPLOADER_SECRETS" ,secrets) - ("SQL_URI" ,sql-uri) - ("UPLOAD_FOLDER" ,(string-append data-directory - "/uploads")) - ("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))) - (gn-uploader-ca-bundle (file-append gn-uploader-profile "/etc/ssl/certs/ca-certificates.crt"))) + (let* ((database-mapping (file-system-mapping + (source "/run/mysqld") + (target source) + (writable? #t))) + (gn-uploader-conf (computed-file "gn-uploader.conf" + (configuration-file-gexp + `(("UPLOADER_SECRETS" ,secrets) + ("SQL_URI" ,sql-uri) + ("UPLOAD_FOLDER" ,(string-append data-directory + "/uploads")) + ("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))) + (gn-uploader-ca-bundle (file-append gn-uploader-profile "/etc/ssl/certs/ca-certificates.crt"))) (list (gunicorn-app (name "gn-uploader") (package gn-uploader) |