15 lines
511 B
Racket
15 lines
511 B
Racket
#lang racket
|
|
(require web-server/dispatchers/dispatch)
|
|
(provide/contract
|
|
[interface-version dispatcher-interface-version/c]
|
|
[make (() () #:rest (listof dispatcher/c) . ->* . dispatcher/c)])
|
|
|
|
(define interface-version 'v1)
|
|
(define ((make . dispatchers) conn req)
|
|
(let loop ([dispatchers dispatchers])
|
|
(if (empty? dispatchers)
|
|
(next-dispatcher)
|
|
(with-handlers ([exn:dispatcher?
|
|
(lambda (e) (loop (rest dispatchers)))])
|
|
((first dispatchers) conn req)))))
|