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."
(when headers-ht
(iter
(for (key value) :in-hashtable headers-ht)
(unless (or (eql scheme :https)
(not (gethash :secure-only-p value)))
(when (or (eql scheme :https)
(not (gethash :secure-only-p value)))
(collect (cons key (canonicalize-header-value (gethash :value value)))))))))
(defun fetch-url (url)
......
Markdown is supported
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