diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-05-23 18:29:28 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-05-23 18:29:28 +0200 |
| commit | 36373e9fc84e798e7fe4dc07d732802ab7470283 (patch) | |
| tree | 3d839b981131cc7819df3d96a4bd0e58c1a4b76d | |
| parent | Update server. (diff) | |
| download | calp-36373e9fc84e798e7fe4dc07d732802ab7470283.tar.gz calp-36373e9fc84e798e7fe4dc07d732802ab7470283.tar.xz | |
Fix previous commit.
| -rw-r--r-- | module/server.scm | 5 |
1 files 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) |