From 5295777a988ae6788c1bb366e540ff39662e7dd2 Mon Sep 17 00:00:00 2001
From: Frederick Muriuki Muriithi
Date: Tue, 5 Nov 2024 11:39:48 -0600
Subject: Pass log-level to gn-auth application

---
 genenetwork/services/genenetwork.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/genenetwork/services/genenetwork.scm b/genenetwork/services/genenetwork.scm
index b4c0806..b627879 100644
--- a/genenetwork/services/genenetwork.scm
+++ b/genenetwork/services/genenetwork.scm
@@ -491,7 +491,10 @@ object."
                               (writable? #t))
                              (file-system-mapping
                               (source gn-auth-ca-bundle)
-                              (target source)))))))))
+                              (target source))))
+             (extra-cli-arguments
+              (list "--log-level"
+                    (string-upcase (symbol->string log-level)))))))))
 
 (define (genenetwork-nginx-server-blocks config)
   "Return a list of @code{<nginx-server-configuration>} records specifying
-- 
cgit v1.2.3