@@ -55,7 +55,9 @@ mkRequest settings addr (ValidHeaders m p ma _ hdr) body = req
55 , pathInfo = H.decodePathSegments path
55 , pathInfo = H.decodePathSegments path
56 , rawQueryString = query
56 , rawQueryString = query
57 , queryString = H.parseQuery query
57 , queryString = H.parseQuery query
58− , requestHeaders = hdr
58+ , requestHeaders = case ma of
60+ Just h -> (mk "host", h) : hdr
59 , isSecure = True
61 , isSecure = True
60 , remoteHost = addr
62 , remoteHost = addr
61 , requestBody = body
63 , requestBody = body
@@ -110,7 +112,7 @@ validateHeaders hs = case pseudo hs (emptyPseudo,id) of
112 | k == "content-length"
114 | k == "content-length"
113− = normal kvs (p { contentLen = Just v },b)
115+ = normal kvs (p { contentLen = Just v }, b . ((mk k,v) :))
114 | k == "host" = if isJust (colonAuth p) then
116 | k == "host" = if isJust (colonAuth p) then
115 normal kvs (p,b)
117 normal kvs (p,b)