Network/HTTP/Lucu/Response/StatusCode.hs

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