From 36373e9fc84e798e7fe4dc07d732802ab7470283 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Thu, 23 May 2019 18:29:28 +0200 Subject: Fix previous commit. --- module/server.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/module/server.scm b/module/server.scm index 1e7e1c47..af87a638 100644 --- a/module/server.scm +++ b/module/server.scm @@ -75,10 +75,11 @@ (define opts (getopt-long args options)) (define port (option-ref opts 'port 8080)) - (define addr (inet-aton (option-ref opts 'addr "127.0.0.1"))) + (define addr (option-ref opts 'addr INADDR_LOOPBACK)) + (format #t "Starting server on ~a:~a~%I'm ~a, runing from ~a~%" - (inet-ntoa addr) port + (number->string addr 16) port (getpid) (getcwd)) (run-server (make-make-routes c e) -- cgit v1.2.3