Fix http-get* deprecation note
authorAndy Wingo <wingo@pobox.com>
Mon, 21 Jan 2013 21:13:16 +0000 (22:13 +0100)
committerAndy Wingo <wingo@pobox.com>
Mon, 21 Jan 2013 21:13:30 +0000 (22:13 +0100)
* module/web/client.scm (http-get*): Fix deprecation warning.  Thanks to
  Daniel Hartwig for the report.

module/web/client.scm

index ce93cd8..9fbb25b 100644 (file)
@@ -285,10 +285,9 @@ true)."
                     (extra-headers #f) (headers (or extra-headers '()))
                     (decode-body? #t))
   "Deprecated in favor of (http-get #:streaming? #t)."
-  (when extra-headers
-    (issue-deprecation-warning
-     "`http-get*' has been deprecated.  "
-     "Instead, use `http-get' with the #:streaming? #t keyword argument."))
+  (issue-deprecation-warning
+   "`http-get*' has been deprecated.  "
+   "Instead, use `http-get' with the #:streaming? #t keyword argument.")
   (http-get uri #:body body
             #:port port #:version version #:keep-alive? keep-alive?
             #:headers headers #:decode-body? #t #:streaming? #t))