@@ -68,6 +68,7 @@ module Network.Wai
6868 , responseLBS
6969 -- * Response accessors
7070 , responseStatus
71+ , responseHeaders
7172 , responseToSource
7273 ) where
7374
@@ -134,6 +135,12 @@ responseStatus (ResponseFile s _ _ _) = s
134135responseStatus (ResponseBuilder s _ _ ) = s
135136responseStatus (ResponseSource s _ _ ) = s
136137
138+-- | Accessing 'H.Status' in 'Response'.
139+responseHeaders :: Response -> H.ResponseHeaders
140+responseHeaders (ResponseFile _ hs _ _) = hs
141+responseHeaders (ResponseBuilder _ hs _ ) = hs
142+responseHeaders (ResponseSource _ hs _ ) = hs
143+
137144-- | Converting the body information in 'Response' to 'Source'.
138145responseToSource :: Response
139146 -> (H.Status, H.ResponseHeaders, WithSource IO (C.Flush Builder) b)