55b9285 · typeable/wai

git.iko.soy/typeable/wai

on master help sign in

adding new members to Request: requestHeaderReferer and requestHeaderUserAgent

55b9285Kazu Yamamoto11 years ago

wai/Network/Wai.hs+4

compare with master

unifiedsplit

@@ -59,6 +59,8 @@ module Network.Wai

59 , requestBodyLength

60 , requestHeaderHost

61 , requestHeaderRange

62+ , requestHeaderReferer

63+ , requestHeaderUserAgent

62 , strictRequestBody

64 , strictRequestBody

63 , lazyRequestBody

65 , lazyRequestBody

64 -- * Response

66 -- * Response

@@ -274,6 +276,8 @@ defaultRequest = Request

274 , requestBodyLength = KnownLength 0

276 , requestBodyLength = KnownLength 0

275 , requestHeaderHost = Nothing

277 , requestHeaderHost = Nothing

276 , requestHeaderRange = Nothing

278 , requestHeaderRange = Nothing

279+ , requestHeaderReferer = Nothing

280+ , requestHeaderUserAgent = Nothing

277 }

281 }

278

282

279

283

wai/Network/Wai/Internal.hs+8

@@ -84,6 +84,14 @@ data Request = Request {

84 --

85 -- Since 2.0.0

86 , 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

87 }

95 }

88 deriving (Typeable)

96 deriving (Typeable)