From 5a23aa8e0f8ee233461cf56094e470b7d3fc35c3 Mon Sep 17 00:00:00 2001 From: Nikolay Puzanov Date: Thu, 1 Dec 2022 17:14:10 +0300 Subject: [PATCH] Place log level initialization after args checking --- _web_server/server/playground-server.scm | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/_web_server/server/playground-server.scm b/_web_server/server/playground-server.scm index 73bbfee..5fc411f 100755 --- a/_web_server/server/playground-server.scm +++ b/_web_server/server/playground-server.scm @@ -570,8 +570,6 @@ (stor-base (string-trim (or (option-get opts "stor-base") "./"))) (log-level (string->number (string-trim (or (option-get opts "log-level") "1"))))) - (set! LOG-LEVEL log-level) - (cond (err (display (format "Unknown option '~a'\n" err)) @@ -583,6 +581,7 @@ (exit -1)) (else + (set! LOG-LEVEL log-level) (logger LOG-INFO "Listen on '~a' port '~a'" addr port) (logger LOG-INFO "Server URL: '~a/~a'" host root) (logger LOG-INFO "Max code size: ~a" max-code-size)