diff options
| author | Frederick Muriuki Muriithi | 2025-05-02 13:07:46 -0500 |
|---|---|---|
| committer | Frederick Muriuki Muriithi | 2025-07-02 11:52:59 -0500 |
| commit | d428cf321395c76314e43fd6e1ff858426373ff2 (patch) | |
| tree | 203e802eca417f855f6ad5a04e68c37aeae0f20b | |
| parent | a5ae96d721a7109b0de8d161f4c1a1185524771b (diff) | |
| download | gn-machines-d428cf321395c76314e43fd6e1ff858426373ff2.tar.gz | |
Define setting for the asynchronous/background jobs sqlite db.
| -rw-r--r-- | genenetwork/services/genenetwork.scm | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/genenetwork/services/genenetwork.scm b/genenetwork/services/genenetwork.scm index 3289576..fb5a41a 100644 --- a/genenetwork/services/genenetwork.scm +++ b/genenetwork/services/genenetwork.scm @@ -715,7 +715,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 gn2-server-url sessions-dir) + (gn-uploader sql-uri port data-directory secrets log-level auth-server-url gn2-server-url sessions-dir sqlite-databases-directory) ;; 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 @@ -730,7 +730,8 @@ a @code{<genenetwork-configuration>} record." "/uploads")) ("AUTH_SERVER_URL" ,auth-server-url) ("GN2_SERVER_URL" ,gn2-server-url) - ("SESSION_FILESYSTEM_CACHE_PATH" ,sessions-dir))))) + ("SESSION_FILESYSTEM_CACHE_PATH" ,sessions-dir) + ("ASYNCHRONOUS_JOBS_SQLITE_DB" ,(string-append sqlite-databases-directory "/background-jobs.db")))))) (gn-uploader-profile (profile (content (package->development-manifest gn-uploader)) (allow-collisions? #t))) @@ -775,6 +776,10 @@ a @code{<genenetwork-configuration>} record." (file-system-mapping (source sessions-dir) (target source) + (writable? #t)) + (file-system-mapping + (source sqlite-databases-directory) + (target source) (writable? #t)))) (extra-cli-arguments (list "--log-level" |