git.iko.soy/typeable/wai
on master help sign in
adding new members to Request: requestHeaderReferer and requestHeaderUserAgent
commit55b92858a3663e097380e1f08f74eb290519a1c8 authorKazu Yamamoto <kazu@iij.ad.jp> dateFri 25 Dec 2015, 10:56 (11 years ago) parent92a3f9b
2 files changed+12
compare with master
unifiedsplit
wai/Network/Wai.hs+4 wai/Network/Wai/Internal.hs+8
wai/Network/Wai.hs+4
@@ -59,6 +59,8 @@ module Network.Wai
5959 , requestBodyLength
6060 , requestHeaderHost
6161 , requestHeaderRange
62+ , requestHeaderReferer
63+ , requestHeaderUserAgent
6264 , strictRequestBody
6365 , lazyRequestBody
6466 -- * Response
@@ -274,6 +276,8 @@ defaultRequest = Request
274276 , requestBodyLength = KnownLength 0
275277 , requestHeaderHost = Nothing
276278 , requestHeaderRange = Nothing
279+ , requestHeaderReferer = Nothing
280+ , requestHeaderUserAgent = Nothing
277281 }
278282
279283
wai/Network/Wai/Internal.hs+8
@@ -84,6 +84,14 @@ data Request = Request {
8484 --
8585 -- Since 2.0.0
8686 , requestHeaderRange :: Maybe B.ByteString
87+ -- | The value of the Referer header in a HTTP request.
88+ --
89+ -- Since 3.2.0
90+ , requestHeaderReferer :: Maybe B.ByteString
91+ -- | The value of the User-Agent header in a HTTP request.
92+ --
93+ -- Since 3.2.0
94+ , requestHeaderUserAgent :: Maybe B.ByteString
8795 }
8896 deriving (Typeable)
8997