diff --git a/wai/Network/Wai.hs b/wai/Network/Wai.hs
index 6580e887a..e3cdd9638 100644
--- 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
index d90610088..69893ab88 100644
--- 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)