From 170410b607b5ea2b935dbb656c844b86720bf1ec Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Mon, 21 Jan 2013 22:13:16 +0100 Subject: [PATCH] Fix http-get* deprecation note * module/web/client.scm (http-get*): Fix deprecation warning. Thanks to Daniel Hartwig for the report. --- module/web/client.scm | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/module/web/client.scm b/module/web/client.scm index ce93cd841..9fbb25bba 100644 --- a/module/web/client.scm +++ b/module/web/client.scm @@ -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))