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 |]