summaryrefslogtreecommitdiff
path: root/module/web
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2017-11-11 15:14:54 +0100
committerLudovic Courtès <ludo@gnu.org>2017-11-11 15:14:54 +0100
commit6ad28ae3bc6a6d9e95ab7d70510d12c97673a143 (patch)
treeb6251984a401bd1f8bf2f74f4a3d754944080a1f /module/web
parent7d0d9e2c25c1e872cfc7d14ab5139915f1813d56 (diff)
downloadguile-6ad28ae3bc6a6d9e95ab7d70510d12c97673a143.tar.gz
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 96b994b6f815747ce2548123cc996d8132bd4781.
Diffstat (limited to 'module/web')
-rw-r--r--module/web/http.scm6
1 files changed, 3 insertions, 3 deletions
diff --git a/module/web/http.scm b/module/web/http.scm
index 62f062434..de61c9495 100644
--- a/module/web/http.scm
+++ b/module/web/http.scm
@@ -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)