diff options
| -rw-r--r-- | mumi/web/server.scm | 8 | ||||
| -rw-r--r-- | 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))) |