@@ -362,6 +362,20 @@ err417 = ServantErr { errHTTPCode = 417
362 , errHeaders = []
362 , errHeaders = []
365+-- | 'err418' Expectation Failed
369+-- > failingHandler :: Handler ()
370+-- > failingHandler = throwError $ err418 { errBody = "Apologies, this is not a webserver but a teapot." }
373+err418 = ServantErr { errHTTPCode = 418
374+ , errReasonPhrase = "I'm a teapot"
365-- | 'err500' Internal Server Error
379-- | 'err500' Internal Server Error
367-- Example:
381-- Example: