Demo of a Racket server that does not work...

demo.rkt

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