adding requestHeaderHost. (#190).
commit6854197dfbb707bf9b25fb4af16e12f6467f8ffd
authorKazu Yamamoto <kazu@iij.ad.jp>
dateSun 3 Nov 2013, 20:17 (13 years ago)
parentb1338c2
warp/Network/Wai/Handler/Warp/Request.hs+1
@@ -74,6 +74,7 @@ recvRequest conn ii addr src0 = do
7474 , requestBody = timeoutBody th rbody
7575 , vault = mempty
7676 , requestBodyLength = bodyLength
77+ , requestHeaderHost = idxhdr ! idxHost
7778 }
7879 return (req, idxhdr, getSource)
7980 where