13 lines
382 B
Racket
13 lines
382 B
Racket
#lang racket/base
|
|
(require racket/contract)
|
|
(require web-server/dispatchers/dispatch
|
|
web-server/private/connection-manager)
|
|
(provide/contract
|
|
[interface-version dispatcher-interface-version/c]
|
|
[make (integer? . -> . dispatcher/c)])
|
|
|
|
(define interface-version 'v1)
|
|
(define ((make new-timeout) conn req)
|
|
(adjust-connection-timeout! conn new-timeout)
|
|
(next-dispatcher))
|