adding requestHeaderHost to Request. (#190)
commitb1338c20dd3dd81af0b7827ffd3235ea4634c1ec
authorKazu Yamamoto <kazu@iij.ad.jp>
dateSun 3 Nov 2013, 20:14 (13 years ago)
parent808317c
wai/Network/Wai.hs+1
@@ -186,4 +186,5 @@ defaultRequest = Request
186186 , requestBody = return ()
187187 , vault = mempty
188188 , requestBodyLength = KnownLength 0
189+ , requestHeaderHost = Nothing
189190 }
wai/Network/Wai/Internal.hs+2
@@ -58,6 +58,8 @@ data Request = Request
5858 --
5959 -- Since 1.4.0
6060 , requestBodyLength :: RequestBodyLength
61+ -- | The value of the Host header in a HTTP request.
62+ , requestHeaderHost :: Maybe B.ByteString
6163 }
6264 deriving (Typeable)
6365