diff options
author | Arun Isaac | 2024-10-24 14:19:38 +0100 |
---|---|---|
committer | Arun Isaac | 2024-10-24 17:36:34 +0100 |
commit | 38223a084a84fc1415258acdeeb59b63db5a8669 (patch) | |
tree | 17fcf57292686ed9a649319e70532871d97a52fe | |
parent | 3737a6dda627daf70524606c25a6f42677bdf8c9 (diff) | |
download | gn-machines-38223a084a84fc1415258acdeeb59b63db5a8669.tar.gz |
Make <gn-uploader-configuration> log-level a symbol.
*
genenetwork/services/genenetwork.scm (<gn-uploader-configuration>)[log-level]:
Change default to the symbol 'warning.
* genenetwork/services/genenetwork.scm (gn-uploader-gunicorn-app):
Pass --log-level to gunicorn.
-rw-r--r-- | genenetwork/services/genenetwork.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/genenetwork/services/genenetwork.scm b/genenetwork/services/genenetwork.scm index a6f757b..ef59701 100644 --- a/genenetwork/services/genenetwork.scm +++ b/genenetwork/services/genenetwork.scm @@ -126,7 +126,7 @@ (gn2-server-url gn-uploader-configuration-gn2-server-url (default "https://genenetwork.org")) (log-level gn-uploader-configuration-log-level - (default "WARNING"))) + (default 'warning))) (define %genenetwork-accounts (list (user-group @@ -578,7 +578,9 @@ a @code{<genenetwork-configuration>} record." (file-system-mapping (source gn-uploader-profile) (target source)))) - (extra-cli-arguments (list "--log-level" log-level))))))) + (extra-cli-arguments + (list "--log-level" + (string-upcase (symbol->string log-level))))))))) (define (gn-uploader-nginx-server-block config) (match-record config <gn-uploader-configuration> |