1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 03:30:27 +02:00

http: Fix typo in proxy handling in 'write-request-line'.

Reported by Mark H Weaver <mhw@netris.org>
at <https://lists.gnu.org/archive/html/guix-devel/2017-11/msg00190.html>.

* module/web/http.scm (write-request-line): Fix more typos introduced in
96b994b6f8.
This commit is contained in:
Ludovic Courtès 2017-11-11 15:14:54 +01:00
parent 7d0d9e2c25
commit 6ad28ae3bc

View file

@ -1159,9 +1159,9 @@ three values: the method, the URI, and the version."
(put-string port "://")
(cond
((string-index host #\:)
(put-char #\[ port)
(put-string port host
(put-char port #\])))
(put-char port #\[)
(put-string port host)
(put-char port #\]))
(else
(put-string port host)))
(unless ((@@ (web uri) default-port?) scheme host-port)