From 70e0790fe95ba205b904d7302544e0118408d1fd Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Tue, 2 Aug 2016 13:17:10 -0400 Subject: [PATCH] Switch default port to 7443 --- README.md | 2 +- src/entrypoint.rkt | 4 ++-- src/main.rkt | 2 +- 3 files changed, 4 insertions(+), 4 deletions(-) diff --git a/README.md b/README.md index 7b3c82b..d35eb57 100644 --- a/README.md +++ b/README.md @@ -23,7 +23,7 @@ a hashtable to `main`. Keys useful for deployment: - *port*: number; default the value of the `SITE_PORT` environment - variable, if defined; otherwise, 8443. + variable, if defined; otherwise, 7443. - *ssl?*: boolean; default `#t`. - *reloadable?*: boolean; `#t` if the `SITE_RELOADABLE` environment variable is defined; otherwise, `#f`. diff --git a/src/entrypoint.rkt b/src/entrypoint.rkt index 2eccccb..34b268e 100644 --- a/src/entrypoint.rkt +++ b/src/entrypoint.rkt @@ -10,7 +10,7 @@ (require "signals.rkt") (require "daemon.rkt") -(define (start-service* #:port [port 8443] +(define (start-service* #:port [port 7443] #:ssl? [ssl? #t] request-handler-function on-continuation-expiry @@ -34,7 +34,7 @@ #:ssl-key (and ssl? (build-path (current-directory) "../private-key.pem")) #:servlet-regexp #rx""))))) -(define (start-service #:port [port 8443] +(define (start-service #:port [port 7443] #:ssl? [ssl? #t] #:reloadable? [reloadable? #t] request-handler-entry-point diff --git a/src/main.rkt b/src/main.rkt index d577fbf..d4b7028 100644 --- a/src/main.rkt +++ b/src/main.rkt @@ -11,7 +11,7 @@ (void (make-reloadable-entry-point 'rerender-all! "site.rkt")) (start-service #:port (hash-ref config 'port (lambda () (let ((port-str (getenv "SITE_PORT"))) - (if port-str (string->number port-str) 8443)))) + (if port-str (string->number port-str) 7443)))) #:ssl? (hash-ref config 'ssl? (lambda () #t)) #:reloadable? (hash-ref config 'reloadable? (lambda () (getenv "SITE_RELOADABLE"))) (make-reloadable-entry-point 'request-handler "site.rkt")