From 66733944d333a257473f5ad2ffcc044c41872831 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 12 Dec 2014 09:28:49 -0700
Subject: [PATCH] net/http-client: add a `#:method` argument to
 `http-conn-recv!`

Supplying a 'HEAD method is necessary to receive the response
to a 'HEAD request, since the response will not include data.
---
 racket/collects/net/http-client.rkt | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/racket/collects/net/http-client.rkt b/racket/collects/net/http-client.rkt
index 7d661c8b82..5bbc4ca5aa 100644
--- a/racket/collects/net/http-client.rkt
+++ b/racket/collects/net/http-client.rkt
@@ -223,6 +223,7 @@
   hc)
 
 (define (http-conn-recv! hc
+                         #:method [method-bss #"GET"]
                          #:content-decode [decodes '(gzip)]
                          #:close? [iclose? #f])
   (define status (http-conn-status! hc))
@@ -232,8 +233,13 @@
         (regexp-member #rx#"^(?i:Connection: +close)$" headers)))
   (when close?
     (http-conn-abandon! hc))
+  (define head?
+    (or (equal? method-bss #"HEAD")
+        (equal? method-bss "HEAD")
+        (equal? method-bss 'HEAD)))
   (define raw-response-port
     (cond
+      [head? (open-input-bytes #"")]
       [(regexp-member #rx#"^(?i:Transfer-Encoding: +chunked)$" headers)
        (http-conn-response-port/chunked! hc #:close? #t)]
       [(ormap (λ (h)
@@ -250,6 +256,7 @@
        (http-conn-response-port/rest! hc)]))
   (define decoded-response-port
     (cond
+      [head? raw-response-port]
       [(and (memq 'gzip decodes) (regexp-member #rx#"^(?i:Content-Encoding: +gzip)$" headers))
        (define-values (in out) (make-pipe PIPE-SIZE))
        (define gunzip-t
@@ -280,6 +287,7 @@
                    #:content-decode decodes
                    #:data data)
   (http-conn-recv! hc 
+                   #:method method-bss
                    #:content-decode decodes
                    #:close? close?))
 
@@ -342,7 +350,8 @@
         http-conn?)]
   [http-conn-recv!
    (->* (http-conn-live?)
-        (#:content-decode (listof symbol?) 
+        (#:content-decode (listof symbol?)
+                          #:method (or/c bytes? string? symbol?)
                           #:close? boolean?)
         (values bytes? (listof bytes?) input-port?))]
   [http-conn-sendrecv!