From 8567076726fbc31378695715733871183854808f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 4 May 2020 13:03:08 +0200 Subject: Fix server --port flag. --- module/entry-points/server.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/module/entry-points/server.scm b/module/entry-points/server.scm index 689b220b..324cac88 100644 --- a/module/entry-points/server.scm +++ b/module/entry-points/server.scm @@ -171,7 +171,7 @@ (define-public (main args) (define opts (getopt-long args options)) - (define port (option-ref opts 'port 8080)) + (define port (string->number (option-ref opts 'port "8080"))) (define addr (option-ref opts 'addr #f)) (define family (cond [(option-ref opts 'six #f) AF_INET6] -- cgit v1.2.3