adding requestHeaderHost. (#190).

2025-01-08 15:37:19 +03:00 · 2013-11-03 20:17:28 +09:00 · 2013-11-03 20:17:28 +09:00 · 6854197dfb
commit 6854197dfb
parent b1338c20dd
1 changed files with 1 additions and 0 deletions
--- a/warp/Network/Wai/Handler/Warp/Request.hs
+++ b/warp/Network/Wai/Handler/Warp/Request.hs
@ -74,6 +74,7 @@ recvRequest conn ii addr src0 = do
          , requestBody       = timeoutBody th rbody
          , vault             = mempty
          , requestBodyLength = bodyLength
+          , requestHeaderHost = idxhdr ! idxHost
          }
    return (req, idxhdr, getSource)
  where