@@ -120,11 +120,9 @@ responseSource st hs src = ResponseSource st hs ($ src)
120120
121121-- | Accessing 'H.Status' in 'Response'.
122122responseStatus :: Response -> H.Status
123−responseStatus rsp =
124− case rsp of
125− ResponseFile s _ _ _ -> s
126− ResponseBuilder s _ _ -> s
127− ResponseSource s _ _ -> s
123+responseStatus (ResponseFile s _ _ _) = s
124+responseStatus (ResponseBuilder s _ _ ) = s
125+responseStatus (ResponseSource s _ _ ) = s
128126
129127-- | Converting the body information in 'Response' to 'Source'.
130128responseToSource :: Response