aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArun Isaac2024-10-24 14:19:38 +0100
committerArun Isaac2024-10-24 17:36:34 +0100
commit38223a084a84fc1415258acdeeb59b63db5a8669 (patch)
tree17fcf57292686ed9a649319e70532871d97a52fe
parent3737a6dda627daf70524606c25a6f42677bdf8c9 (diff)
downloadgn-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.scm6
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>