suzanne.soy/racket-pkg-website
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Switch default port to 7443

Browse Source
This commit is contained in:
Tony Garnock-Jones 2016-08-02 13:17:10 -04:00
parent 24dfa44066
commit 70e0790fe9
3 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
README.md
View File

@ -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`.

4
src/entrypoint.rkt
View File

@ -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

2
src/main.rkt
View File

@ -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")