Ensuring compat libraries provide all old functions too
This commit is contained in:
parent
f5e9e0dad1
commit
5832758c5e
9
collects/web-server/compat/0/dispatch.rkt
Normal file
9
collects/web-server/compat/0/dispatch.rkt
Normal file
|
@ -0,0 +1,9 @@
|
|||
#lang racket/base
|
||||
(require web-server/dispatch/syntax
|
||||
"dispatch/serve.rkt"
|
||||
web-server/dispatch/url-patterns
|
||||
web-server/dispatch/container)
|
||||
(provide (all-from-out web-server/dispatch/syntax
|
||||
"dispatch/serve.rkt"
|
||||
web-server/dispatch/url-patterns
|
||||
web-server/dispatch/container))
|
|
@ -5,4 +5,7 @@
|
|||
(define (make d)
|
||||
(new:make (λ (req) (normalize-response (d req)))))
|
||||
|
||||
(provide (all-defined-out))
|
||||
(provide
|
||||
(rename-out
|
||||
[new:interface-version interface-version])
|
||||
(all-defined-out))
|
|
@ -5,4 +5,7 @@
|
|||
(define (make p d)
|
||||
(new:make p (λ (req) (normalize-response (d req)))))
|
||||
|
||||
(provide (all-defined-out))
|
||||
(provide
|
||||
(rename-out
|
||||
[new:interface-version interface-version])
|
||||
(all-defined-out))
|
|
@ -1,7 +1,12 @@
|
|||
#lang racket/base
|
||||
(require web-server/http/xexpr)
|
||||
(require (prefix-in new: web-server/http/cookie)
|
||||
web-server/http/xexpr)
|
||||
|
||||
(define (xexpr-response/cookies cs xe)
|
||||
(response/xexpr xe #:cookies cs))
|
||||
|
||||
(provide (all-from-out))
|
||||
(provide
|
||||
(rename-out
|
||||
[new:make-cookie make-cookie]
|
||||
[new:cookie->header cookie->header])
|
||||
(all-from-out))
|
|
@ -1,5 +1,6 @@
|
|||
#lang racket/base
|
||||
(require racket/contract
|
||||
(prefix-in new: web-server/http/response-structs)
|
||||
web-server/http/response-structs
|
||||
web-server/http/xexpr
|
||||
racket/list
|
||||
|
@ -65,6 +66,8 @@
|
|||
[else
|
||||
(response/xexpr r)]))
|
||||
|
||||
(provide (except-out (all-defined-out)
|
||||
BODIES
|
||||
GENS))
|
||||
(provide
|
||||
(rename-out [new:TEXT/HTML-MIME-TYPE TEXT/HTML-MIME-TYPE])
|
||||
(except-out (all-defined-out)
|
||||
BODIES
|
||||
GENS))
|
|
@ -7,4 +7,8 @@
|
|||
(define (output-response/method conn r meth)
|
||||
(new:output-response/method conn (normalize-response r) meth))
|
||||
|
||||
(provide (all-defined-out))
|
||||
(provide
|
||||
(rename-out
|
||||
[new:print-headers print-headers]
|
||||
[new:output-file output-file])
|
||||
(all-defined-out))
|
|
@ -10,4 +10,5 @@
|
|||
kw-args
|
||||
(λ (req) (normalize-response (gen req)))))))
|
||||
|
||||
(provide (all-defined-out))
|
||||
(provide (rename-out [new:serve/launch/wait serve/launch/wait])
|
||||
(all-defined-out))
|
|
@ -3,13 +3,13 @@
|
|||
web-server/servlet/web-cells
|
||||
web-server/http/bindings
|
||||
"http.rkt"
|
||||
web-server/dispatch
|
||||
"dispatch.rkt"
|
||||
web-server/servlet/servlet-structs
|
||||
"servlet/web.rkt")
|
||||
(provide (all-from-out net/url
|
||||
web-server/servlet/web-cells
|
||||
web-server/http/bindings
|
||||
"http.rkt"
|
||||
web-server/dispatch
|
||||
"dispatch.rkt"
|
||||
web-server/servlet/servlet-structs
|
||||
"servlet/web.rkt"))
|
||||
|
|
|
@ -29,4 +29,14 @@
|
|||
(define-ssd-like new:send/suspend/dispatch send/suspend/dispatch)
|
||||
(define-ssd-like new:send/suspend/url/dispatch send/suspend/url/dispatch)
|
||||
|
||||
(provide (all-defined-out))
|
||||
(provide
|
||||
(rename-out [new:servlet-prompt servlet-prompt]
|
||||
[new:continuation-url? continuation-url?]
|
||||
[new:current-servlet-continuation-expiration-handler
|
||||
current-servlet-continuation-expiration-handler]
|
||||
[new:redirect/get redirect/get]
|
||||
[new:redirect/get/forget redirect/get/forget]
|
||||
[new:adjust-timeout! adjust-timeout!]
|
||||
[new:clear-continuation-table! clear-continuation-table!]
|
||||
[new:with-errors-to-browser with-errors-to-browser])
|
||||
(all-defined-out))
|
|
@ -1,4 +1,4 @@
|
|||
#lang racket
|
||||
#lang racket/base
|
||||
(require web-server/dispatch/syntax
|
||||
web-server/dispatch/serve
|
||||
web-server/dispatch/url-patterns
|
||||
|
|
Loading…
Reference in New Issue
Block a user