add err418
commit3f6ecbb77bc4a11b4a582fd909de8c8334787a0e
authorSönke Hahn <soenkehahn@gmail.com>
dateSun 23 Oct 2016, 14:37 (10 years ago)
parent79f53ce
servant-server/src/Servant/Server/Internal/ServantErr.hs+14
@@ -362,6 +362,20 @@ err417 = ServantErr { errHTTPCode = 417
362362 , errHeaders = []
363363 }
364364
365+-- | 'err418' Expectation Failed
366+--
367+-- Example:
368+--
369+-- > failingHandler :: Handler ()
370+-- > failingHandler = throwError $ err418 { errBody = "Apologies, this is not a webserver but a teapot." }
371+--
372+err418 :: ServantErr
373+err418 = ServantErr { errHTTPCode = 418
374+ , errReasonPhrase = "I'm a teapot"
375+ , errBody = ""
376+ , errHeaders = []
377+ }
378+
365379-- | 'err500' Internal Server Error
366380--
367381-- Example: