[servant-server] Add error 429 Too Many Requests. Fix build of exampl…

…es/greet.hs (#1591)

* Fix greet.hs build

* Add error 429: Too Many Requests

* Add changelog entry

changelog.d/1591

@@ -0,0 +1,2 @@
+synopsis: Fix build of examples/greet.hs. Add "429 Too Many Requests" error.
+prs: #1591

servant-server/example/greet.hs

@@ -18,6 +18,7 @@ import           Network.Wai.Handler.Warp
 
 import           Servant
 import           Servant.Server.Generic ()
+import           Servant.API.Generic ((:-))
 
 -- * Example
 

servant-server/src/Servant/Server.hs

@@ -84,6 +84,7 @@ module Servant.Server
   , err417
   , err418
   , err422
+  , err429
    -- ** 5XX
   , err500
   , err501

servant-server/src/Servant/Server/Internal/ServerError.hs

@@ -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: