@@ -45,6 +45,7 @@ module Network.Wai
4545 , FilePart (..)
4646 -- * Response body smart constructors
4747 , responseLBS
48+ , responseStatus
4849 ) where
4950
5051import qualified Data.ByteString as B
@@ -130,6 +131,13 @@ data Response
130131 | ResponseSource H.Status H.ResponseHeaders (C.Source IO (C.Flush Builder))
131132 deriving Typeable
132133
134+responseStatus :: Response -> H.Status
135+responseStatus rsp =
136+ case rsp of
137+ ResponseFile s _ _ _ -> s
138+ ResponseBuilder s _ _ -> s
139+ ResponseSource s _ _ -> s
140+
133141data FilePart = FilePart
134142 { filePartOffset :: Integer
135143 , filePartByteCount :: Integer