From 4aa61744c6d303f0446bb4ca84d8930dafd06e79 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 11 Jul 2014 06:21:33 +0100 Subject: [PATCH] net/http-client: adjust `data-procedure/c` contract Promise more (a `void?` result) and requies less (`any` instead of `any/c`). --- pkgs/net-pkgs/net-doc/net/scribblings/http-client.scrbl | 2 +- racket/collects/net/http-client.rkt | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/pkgs/net-pkgs/net-doc/net/scribblings/http-client.scrbl b/pkgs/net-pkgs/net-doc/net/scribblings/http-client.scrbl index ec088d119e..9b8d2bccd8 100644 --- a/pkgs/net-pkgs/net-doc/net/scribblings/http-client.scrbl +++ b/pkgs/net-pkgs/net-doc/net/scribblings/http-client.scrbl @@ -155,7 +155,7 @@ response, which is why there is no @racket[#:closed?] argument like Contract for a procedure that accepts a procedure of one argument, which is a string or byte string: -@racket[(-> (-> (or/c bytes? string?) any/c) any/c)]. +@racket[(-> (-> (or/c bytes? string?) void?) any)]. } diff --git a/racket/collects/net/http-client.rkt b/racket/collects/net/http-client.rkt index eabb98a91b..06246a096d 100644 --- a/racket/collects/net/http-client.rkt +++ b/racket/collects/net/http-client.rkt @@ -299,7 +299,7 @@ #:close? #t)) (define data-procedure/c - (-> (-> (or/c bytes? string?) any/c) any/c)) + (-> (-> (or/c bytes? string?) void?) any)) (provide data-procedure/c