summaryrefslogtreecommitdiff
path: root/module/web
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2017-11-10 22:54:49 +0100
committerLudovic Courtès <ludo@gnu.org>2017-11-10 22:54:49 +0100
commit7d0d9e2c25c1e872cfc7d14ab5139915f1813d56 (patch)
tree8b4c7f2013ba827a784248f247fbc8c48a4cfa4a /module/web
parentb322ac67d37c100c58a95a3515f89a0328c6370e (diff)
downloadguile-7d0d9e2c25c1e872cfc7d14ab5139915f1813d56.tar.gz
http: Fix typo in proxy handling in 'write-request-line'.
Reported by Konrad Hinsen <konrad.hinsen@fastmail.net> at <https://lists.gnu.org/archive/html/guix-devel/2017-11/msg00070.html>. * module/web/http.scm (write-request-line): Move 'string-index' first in 'cond' clause. Fixes a regression introduced in 96b994b6f815747ce2548123cc996d8132bd4781.
Diffstat (limited to 'module/web')
-rw-r--r--module/web/http.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/module/web/http.scm b/module/web/http.scm
index 993b50ef4..62f062434 100644
--- a/module/web/http.scm
+++ b/module/web/http.scm
@@ -1,6 +1,6 @@
;;; HTTP messages
-;; Copyright (C) 2010-2016 Free Software Foundation, Inc.
+;; Copyright (C) 2010-2017 Free Software Foundation, Inc.
;; This library is free software; you can redistribute it and/or
;; modify it under the terms of the GNU Lesser General Public
@@ -1158,7 +1158,7 @@ three values: the method, the URI, and the version."
(put-symbol port scheme)
(put-string port "://")
(cond
- ((host string-index #\:)
+ ((string-index host #\:)
(put-char #\[ port)
(put-string port host
(put-char port #\])))