diff options
author | Ludovic Courtès <ludo@gnu.org> | 2017-11-10 22:54:49 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2017-11-10 22:54:49 +0100 |
commit | 7d0d9e2c25c1e872cfc7d14ab5139915f1813d56 (patch) | |
tree | 8b4c7f2013ba827a784248f247fbc8c48a4cfa4a /module/web | |
parent | b322ac67d37c100c58a95a3515f89a0328c6370e (diff) | |
download | guile-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.scm | 4 |
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 #\]))) |