suzanne.soy/whalesong
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

parameterizing the port

Browse Source
This commit is contained in:
Danny Yoo 2013-03-05 16:00:12 -07:00
parent 04f0aec996
commit 511c3a0c20
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
whalesong/repl-prototype/server.rkt
View File

@ -1,7 +1,5 @@
#lang racket/base #lang racket/base
(require "repl-compile.rkt" (require "repl-compile.rkt"
json json
file/gzip file/gzip
@ -9,6 +7,7 @@
racket/port racket/port
racket/match racket/match
racket/pretty racket/pretty
racket/cmdline
web-server/servlet-env web-server/servlet-env
web-server/servlet web-server/servlet
"../make/make-structs.rkt" "../make/make-structs.rkt"
@ -103,9 +102,16 @@
(define current-port (make-parameter 8080))
(void (command-line
#:once-each
[("-p" "--port") p "Port (default 8080)"
(current-port (string->number p))]))
(write-repl-runtime-files) (write-repl-runtime-files)
(serve/servlet start (serve/servlet start
#:servlet-path "/compile" #:servlet-path "/compile"
#:extra-files-paths (list htdocs) #:extra-files-paths (list htdocs)
#:launch-browser? #f #:launch-browser? #f
#:port 8080) #:port (current-port))