Skip to content

Instantly share code, notes, and snippets.

@beppu

beppu/app.rkt

Created October 10, 2014 21:16
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save beppu/2f8a7527ce45396043de to your computer and use it in GitHub Desktop.
Save beppu/2f8a7527ce45396043de to your computer and use it in GitHub Desktop.
Download ZIP
Raw
app.rkt
(require web-server/servlet
web-server/servlet-env)
(define (my-app req)
(response/xexpr
`(html (head (title "Hello world!"))
(body (p "Hey out there!")))))
(define port (or (and (getenv "PORT")
(string->number (getenv "PORT")))
8080))
(serve/servlet my-app #:port port)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment