diff options
| -rw-r--r-- | module/entry-points/server.scm | 2 |
1 files changed, 1 insertions, 1 deletions
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] |