@@ -60,8 +60,8 @@ module Network.Wai
6060 , responseSource
6161 , responseLBS
6262 -- * Response accessors
63− , responseToSource
6463 , responseStatus
64+ , responseToSource
6565 -- * Other types
6666 , Application
6767 , Middleware
@@ -118,6 +118,7 @@ responseBuilder = ResponseBuilder
118118responseSource :: H.Status -> H.ResponseHeaders -> C.Source IO (C.Flush Builder) -> Response
119119responseSource st hs src = ResponseSource st hs ($ src)
120120
121+-- | Accessing 'H.Status' in 'Response'.
121122responseStatus :: Response -> H.Status
122123responseStatus rsp =
123124 case rsp of
@@ -125,6 +126,7 @@ responseStatus rsp =
125126 ResponseBuilder s _ _ -> s
126127 ResponseSource s _ _ -> s
127128
129+-- | Converting the body information in 'Response' to 'Source'.
128130responseToSource :: Response
129131 -> (H.Status, H.ResponseHeaders, WithSource IO (C.Flush Builder) b)
130132responseToSource (ResponseSource s h b) = (s, h, b)