adding new members to Request: requestHeaderReferer and requestHeader…

…UserAgent
yesodweb · Dec 25, 2015 · 55b9285 · 55b9285
1 parent 92a3f9b
commit 55b9285
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 0 deletions.
diff --git a/wai/Network/Wai.hs b/wai/Network/Wai.hs
@@ -59,6 +59,8 @@ module Network.Wai
     , requestBodyLength
     , requestHeaderHost
     , requestHeaderRange
+    , requestHeaderReferer
+    , requestHeaderUserAgent
     , strictRequestBody
     , lazyRequestBody
       -- * Response
@@ -274,6 +276,8 @@ defaultRequest = Request
     , requestBodyLength = KnownLength 0
     , requestHeaderHost = Nothing
     , requestHeaderRange = Nothing
+    , requestHeaderReferer = Nothing
+    , requestHeaderUserAgent = Nothing
     }
 
 

diff --git a/wai/Network/Wai/Internal.hs b/wai/Network/Wai/Internal.hs
@@ -84,6 +84,14 @@ data Request = Request {
   --
   -- Since 2.0.0
   ,  requestHeaderRange   :: Maybe B.ByteString
+  -- | The value of the Referer header in a HTTP request.
+  --
+  -- Since 3.2.0
+  ,  requestHeaderReferer   :: Maybe B.ByteString
+  -- | The value of the User-Agent header in a HTTP request.
+  --
+  -- Since 3.2.0
+  ,  requestHeaderUserAgent :: Maybe B.ByteString
   }
   deriving (Typeable)