1 module Network.HTTP.Lucu.Response
7 import qualified Data.ByteString.Lazy.Char8 as B
8 import Data.ByteString.Lazy.Char8 (ByteString)
9 import Network.HTTP.Lucu.Headers
10 import Network.HTTP.Lucu.HttpVersion
12 data StatusCode = Continue
19 | NonAuthoritativeInformation
40 | ProxyAuthenticationRequired
46 | RequestEntityTooLarge
48 | UnsupportedMediaType
49 | RequestRangeNotSatisfiable
51 | UnprocessableEntitiy
60 | HttpVersionNotSupported
63 data Response = Response {
64 resVersion :: HttpVersion
65 , resStatus :: StatusCode
66 , resHeaders :: Headers
67 , resBody :: Maybe ByteString
70 instance HasHeaders Response where
71 getHeaders = resHeaders
72 setHeaders res hdr = res { resHeaders = hdr }