@@ -376,6 +376,20 @@ err418 = ServantErr { errHTTPCode = 418
376 , errHeaders = []
376 , errHeaders = []
379+-- | 'err422' Unprocessable Entity
383+-- > failingHandler :: Handler ()
384+-- > failingHandler = throwError $ err422 { errBody = "I understood your request, but can't process it." }
387+err422 = ServantErr { errHTTPCode = 422
388+ , errReasonPhrase = "Unprocessable Entity"
379-- | 'err500' Internal Server Error
393-- | 'err500' Internal Server Error
381-- Example:
395-- Example: