From 38223a084a84fc1415258acdeeb59b63db5a8669 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Thu, 24 Oct 2024 14:19:38 +0100
Subject: 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.
---
 genenetwork/services/genenetwork.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'genenetwork')

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>
-- 
cgit v1.2.3