Commit b9769973 authored by Eric Timmons's avatar Eric Timmons
Browse files

Fix issue getting additional headers for host

parent e11b5e49
...@@ -103,8 +103,8 @@ the request." ...@@ -103,8 +103,8 @@ the request."
(when headers-ht (when headers-ht
(iter (iter
(for (key value) :in-hashtable headers-ht) (for (key value) :in-hashtable headers-ht)
(unless (or (eql scheme :https) (when (or (eql scheme :https)
(not (gethash :secure-only-p value))) (not (gethash :secure-only-p value)))
(collect (cons key (canonicalize-header-value (gethash :value value))))))))) (collect (cons key (canonicalize-header-value (gethash :value value)))))))))
(defun fetch-url (url) (defun fetch-url (url)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment