#lang racket/base (require racket/contract) (require web-server/private/connection-manager web-server/http) (define dispatcher/c (connection? request? . -> . void)) (define dispatcher-interface-version/c (symbols 'v1)) (define-struct exn:dispatcher ()) (define (next-dispatcher) (raise (make-exn:dispatcher))) (provide/contract [dispatcher/c contract?] [dispatcher-interface-version/c contract?] [next-dispatcher (-> void)] [struct exn:dispatcher ()])