From 35a11293225d27d1d1f9c5e6e13def2b232761b5 Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Mon, 3 Jan 2022 01:13:23 +0530 Subject: web: Parameterize web server listen address. * mumi/web/server.scm (start-mumi-web-server): Accept web server listen address as argument. * scripts/mumi.in: Pass 0.0.0.0 as web server listen address. --- mumi/web/server.scm | 8 ++++---- scripts/mumi.in | 2 +- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/mumi/web/server.scm b/mumi/web/server.scm index 5fb54eb..db7662a 100644 --- a/mumi/web/server.scm +++ b/mumi/web/server.scm @@ -35,10 +35,10 @@ (cons (request-method request) (request-path-components request))))) -(define (start-mumi-web-server port) +(define (start-mumi-web-server address port) (format (current-error-port) - "Mumi web server listening on http://0.0.0.0:~a/~%" - port) + "Mumi web server listening on http://~a:~a/~%" + address port) (run-server handler - #:addr INADDR_ANY + #:addr (inet-pton AF_INET address) #:port port)) diff --git a/scripts/mumi.in b/scripts/mumi.in index bd13b1b..5ec33cc 100644 --- a/scripts/mumi.in +++ b/scripts/mumi.in @@ -140,5 +140,5 @@ "REPL server listening on port ~a~%" repl-port) (spawn-server (make-tcp-server-socket #:port repl-port)))) - (start-mumi-web-server 1234)))) + (start-mumi-web-server "0.0.0.0" 1234)))) (_ (show-mumi-usage))) -- cgit v1.2.3