mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 21:40:33 +02:00
Code Activity

Fix http-get* deprecation note

Browse source 
* module/web/client.scm (http-get*): Fix deprecation warning.  Thanks to
  Daniel Hartwig for the report.
This commit is contained in:
Andy Wingo 2013-01-21 22:13:16 +01:00
parent 0bc37aec59
commit 170410b607
1 changed files with 3 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

7
module/web/client.scm
View file

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