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

Fix parsing canvas width

Browse Source
This commit is contained in:
Nikolay Puzanov 2022-12-07 17:54:50 +03:00
parent 931f4d8aa4
commit 01c982fada
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -910,7 +910,8 @@
(let ((canvas-width (let ((canvas-width
(let ((v (assoc "width" query))) (let ((v (assoc "width" query)))
(and v (string->number (cadr v)) DEFAULT-CANVAS-WIDTH)))) (or (and v (string->number (cadr v)))
DEFAULT-CANVAS-WIDTH))))
(make-response (make-response
(make-log-html log vcd canvas-width) (make-log-html log vcd canvas-width)
#:content-type 'text/plain))))) #:content-type 'text/plain)))))