blob: 6cdbe9cf88fe4369b81b3f2ae3abf6d4ab2c281b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
#lang scheme/base
(require mzlib/contract)
(require "dispatch.ss"
"../private/connection-manager.ss")
(provide/contract
[interface-version dispatcher-interface-version?]
[make (integer? . -> . dispatcher?)])
(define interface-version 'v1)
(define ((make new-timeout) conn req)
(adjust-connection-timeout! conn new-timeout)
(next-dispatcher))
|
