add HTTP status code 422
commitd2a51396cc3ed2c0d04bd42f72751f7ef5990bcc
authorYusuke Sangenya <sangenya@sancha-mac.local>
dateSat 3 Dec 2016, 16:44 (10 years ago)
parent8ed7a95
servant-server/src/Servant/Server/Internal/ServantErr.hs+14
@@ -376,6 +376,20 @@ err418 = ServantErr { errHTTPCode = 418
376376 , errHeaders = []
377377 }
378378
379+-- | 'err422' Unprocessable Entity
380+--
381+-- Example:
382+--
383+-- > failingHandler :: Handler ()
384+-- > failingHandler = throwError $ err422 { errBody = "I understood your request, but can't process it." }
385+--
386+err422 :: ServantErr
387+err422 = ServantErr { errHTTPCode = 422
388+ , errReasonPhrase = "Unprocessable Entity"
389+ , errBody = ""
390+ , errHeaders = []
391+ }
392+
379393-- | 'err500' Internal Server Error
380394--
381395-- Example: