np/verilog-playground
1
0
Fork 0
Code Issues 1 Pull Requests Projects Releases Wiki Activity

Place log level initialization after args checking

Browse Source
This commit is contained in:
Nikolay Puzanov 2022-12-01 17:14:10 +03:00
parent 171b821dbb
commit 5a23aa8e0f
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
_web_server/server/playground-server.scm
View File

@ -570,8 +570,6 @@
(stor-base (string-trim (or (option-get opts "stor-base") "./"))) (stor-base (string-trim (or (option-get opts "stor-base") "./")))
(log-level (string->number (string-trim (or (option-get opts "log-level") "1"))))) (log-level (string->number (string-trim (or (option-get opts "log-level") "1")))))
(set! LOG-LEVEL log-level)
(cond (cond
(err (err
(display (format "Unknown option '~a'\n" err)) (display (format "Unknown option '~a'\n" err))
@ -583,6 +581,7 @@
(exit -1)) (exit -1))
(else (else
(set! LOG-LEVEL log-level)
(logger LOG-INFO "Listen on '~a' port '~a'" addr port) (logger LOG-INFO "Listen on '~a' port '~a'" addr port)
(logger LOG-INFO "Server URL: '~a/~a'" host root) (logger LOG-INFO "Server URL: '~a/~a'" host root)
(logger LOG-INFO "Max code size: ~a" max-code-size) (logger LOG-INFO "Max code size: ~a" max-code-size)