3 seconds
This commit is contained in:
@@ -456,7 +456,7 @@
|
|||||||
(server-cert (certificate cert))
|
(server-cert (certificate cert))
|
||||||
(channel (make-async-channel))
|
(channel (make-async-channel))
|
||||||
(server (let ((s (start-web-server h channel cert)))
|
(server (let ((s (start-web-server h channel cert)))
|
||||||
(sleep 1) ;;; ToDO Check if server is up
|
(sleep 3) ;;; ToDO Check if server is up
|
||||||
s))
|
s))
|
||||||
(port-nr (let ((pn (async-channel-get channel)))
|
(port-nr (let ((pn (async-channel-get channel)))
|
||||||
(set-wv-context-port! h pn)
|
(set-wv-context-port! h pn)
|
||||||
|
|||||||
Reference in New Issue
Block a user