diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-04 13:03:08 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-04 13:03:08 +0200 |
commit | 8567076726fbc31378695715733871183854808f (patch) | |
tree | 252a550f89724bbd7f1393b3bd135b471f910889 | |
parent | Re-add removal of href on event with js. (diff) | |
download | calp-8567076726fbc31378695715733871183854808f.tar.gz calp-8567076726fbc31378695715733871183854808f.tar.xz |
Fix server --port flag.
Diffstat (limited to '')
-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] |