Created
November 8, 2016 06:59
-
-
Save lukebayes/707deb6591d524b3ec2c4d404fe5c9e6 to your computer and use it in GitHub Desktop.
Demo of a Racket server that does not work...
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#lang racket | |
(require web-server/http | |
web-server/servlet | |
web-server/servlet-env) | |
;; Sign in GET handler | |
(define (sign-in-get req) | |
(response/xexpr | |
`(html (head (title "GET")) | |
(h1 "GET HANDLED")))) | |
;; Sign in POST handler | |
(define (sign-in-post req) | |
(response/xexpr | |
`(html (head (title "POST")) | |
(h1 "POST HANDLED")))) | |
(define (start req) | |
(dispatch req)) | |
(define-values (dispatch url) | |
(dispatch-rules | |
[("sign-in" "post") sign-in-post] ;; <-- This handler does not seem to get bound | |
[("sign-in") sign-in-get])) ;; <-- This handler does work at /sign-in | |
(serve/servlet start | |
#:servlet-path "" | |
#:port 8080 | |
#:stateless? #t | |
#:servlet-regexp #rx"") |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment