diff --git a/collects/web-server/http/request.rkt b/collects/web-server/http/request.rkt index 4fdbf986a6..eabd372116 100644 --- a/collects/web-server/http/request.rkt +++ b/collects/web-server/http/request.rkt @@ -7,6 +7,7 @@ web-server/http/request-structs) (provide/contract + [read-headers (-> input-port? (listof header?))] [rename ext:read-request read-request (connection? tcp-listen-port? diff --git a/collects/web-server/http/response.rkt b/collects/web-server/http/response.rkt index a474bbbf8d..5e2601fc8a 100644 --- a/collects/web-server/http/response.rkt +++ b/collects/web-server/http/response.rkt @@ -13,6 +13,7 @@ web-server/private/util) (provide/contract + [print-headers (output-port? (listof header?) . -> . void)] [rename ext:output-response output-response (connection? response/c . -> . void)] [rename ext:output-response/method output-response/method (connection? response/c bytes? . -> . void)] [rename ext:output-file output-file (connection? path-string? bytes? bytes? (or/c pair? false/c) . -> . void)])