]> gitweb @ CieloNegro.org - Lucu.git/blob - Network/HTTP/Lucu/StatusCode.hs
Make sure RequestReader tells the writer to stop when the reader stops.
[Lucu.git] / Network / HTTP / Lucu / StatusCode.hs
1 {-# LANGUAGE
2     QuasiQuotes
3   #-}
4 -- |Definition of HTTP status code.
5 -- 'Network.HTTP.Lucu.Resource.setStatus' accepts these named status
6 -- codes so you don't have to memorize that, say, \"Gateway Timeout\"
7 -- is 504.
8 module Network.HTTP.Lucu.StatusCode
9     ( -- * Informational
10       Continue(..)
11     , SwitchingProtocols(..)
12     , Processing(..)
13
14       -- * Successful
15     , OK(..)
16     , Created(..)
17     , Accepted(..)
18     , NonAuthoritativeInformation(..)
19     , NoContent(..)
20     , ResetContent(..)
21     , PartialContent(..)
22     , MultiStatus(..)
23     , AlreadyReported(..)
24     , IMUsed(..)
25
26       -- * Redirection
27     , MultipleChoices(..)
28     , MovedPermanently(..)
29     , Found(..)
30     , SeeOther(..)
31     , NotModified(..)
32     , UseProxy(..)
33     , TemporaryRedirect(..)
34
35       -- * Client Error
36     , BadRequest(..)
37     , Unauthorized(..)
38     , PaymentRequired(..)
39     , Forbidden(..)
40     , NotFound(..)
41     , MethodNotAllowed(..)
42     , NotAcceptable(..)
43     , ProxyAuthenticationRequired(..)
44     , RequestTimeout(..)
45     , Conflict(..)
46     , Gone(..)
47     , LengthRequired(..)
48     , PreconditionFailed(..)
49     , RequestEntityTooLarge(..)
50     , RequestURITooLarge(..)
51     , UnsupportedMediaType(..)
52     , RequestRangeNotSatisfiable(..)
53     , ExpectationFailed(..)
54     , UnprocessableEntity(..)
55     , Locked(..)
56     , FailedDependency(..)
57     , UpgradeRequired(..)
58
59       -- * Server Error
60     , InternalServerError(..)
61     , NotImplemented(..)
62     , BadGateway(..)
63     , ServiceUnavailable(..)
64     , GatewayTimeout(..)
65     , HTTPVersionNotSupported(..)
66     , VariantAlsoNegotiates(..)
67     , InsufficientStorage(..)
68     , LoopDetected(..)
69     , NotExtended(..)
70     )
71     where
72 import Network.HTTP.Lucu.StatusCode.Internal
73
74 [statusCodes|
75 100 Continue
76 101 Switching Protocols
77 102 Processing
78
79 200 OK
80 201 Created
81 202 Accepted
82 203 Non Authoritative Information
83 204 No Content
84 205 Reset Content
85 206 Partial Content
86 207 Multi Status
87 208 Already Reported
88 226 IM Used
89
90 300 Multiple Choices
91 301 Moved Permanently
92 302 Found
93 303 See Other
94 304 Not Modified
95 305 Use Proxy
96 307 Temporary Redirect
97
98 400 Bad Request
99 401 Unauthorized
100 402 Payment Required
101 403 Forbidden
102 404 Not Found
103 405 Method Not Allowed
104 406 Not Acceptable
105 407 Proxy Authentication Required
106 408 Request Timeout
107 409 Conflict
108 410 Gone
109 411 Length Required
110 412 Precondition Failed
111 413 Request Entity Too Large
112 414 Request URI Too Large
113 415 Unsupported Media Type
114 416 Request Range Not Satisfiable
115 417 Expectation Failed
116 422 Unprocessable Entity
117 423 Locked
118 424 Failed Dependency
119 426 Upgrade Required
120
121 500 Internal Server Error
122 501 Not Implemented
123 502 Bad Gateway
124 503 Service Unavailable
125 504 Gateway Timeout
126 505 HTTP Version Not Supported
127 506 Variant Also Negotiates
128 507 Insufficient Storage
129 508 Loop Detected
130 510 Not Extended
131 |]