Merge bac7105bde
into a2e003367d
This commit is contained in:
commit
43ee4c772a
|
@ -0,0 +1,2 @@
|
|||
synopsis: Fix build of examples/greet.hs. Add "429 Too Many Requests" error.
|
||||
prs: #1591
|
|
@ -18,6 +18,7 @@ import Network.Wai.Handler.Warp
|
|||
|
||||
import Servant
|
||||
import Servant.Server.Generic ()
|
||||
import Servant.API.Generic ((:-))
|
||||
|
||||
-- * Example
|
||||
|
||||
|
|
|
@ -84,6 +84,7 @@ module Servant.Server
|
|||
, err417
|
||||
, err418
|
||||
, err422
|
||||
, err429
|
||||
-- ** 5XX
|
||||
, err500
|
||||
, err501
|
||||
|
|
|
@ -392,6 +392,20 @@ err422 = ServerError { errHTTPCode = 422
|
|||
, errHeaders = []
|
||||
}
|
||||
|
||||
-- | 'err429' Too Many Requests
|
||||
--
|
||||
-- Example:
|
||||
--
|
||||
-- > failingHandler :: Handler ()
|
||||
-- > failingHandler = throwError $ err429 { errBody = "You have sent too many requests in a short period of time." }
|
||||
--
|
||||
err429 :: ServerError
|
||||
err429 = ServerError { errHTTPCode = 429
|
||||
, errReasonPhrase = "Too Many Requests"
|
||||
, errBody = ""
|
||||
, errHeaders = []
|
||||
}
|
||||
|
||||
-- | 'err500' Internal Server Error
|
||||
--
|
||||
-- Example:
|
||||
|
|
Loading…
Reference in New Issue