Merge pull request #646 from genya0407/422-unprocessable-entity-error

add HTTP status code 422
2016-12-04 21:56:59 +00:00 · 2016-12-04 21:56:59 +00:00 · 37ec081c20
commit 37ec081c20
parent 8ed7a95458 d2a51396cc
1 changed files with 14 additions and 0 deletions
--- a/servant-server/src/Servant/Server/Internal/ServantErr.hs
+++ b/servant-server/src/Servant/Server/Internal/ServantErr.hs
@ -376,6 +376,20 @@ err418 = ServantErr { errHTTPCode = 418
                    , errHeaders = []
                    }

+-- | 'err422' Unprocessable Entity
+--
+-- Example:
+--
+-- > failingHandler :: Handler ()
+-- > failingHandler = throwError $ err422 { errBody = "I understood your request, but can't process it." }
+--
+err422 :: ServantErr
+err422 = ServantErr { errHTTPCode = 422
+                    , errReasonPhrase = "Unprocessable Entity"
+                    , errBody = ""
+                    , errHeaders = []
+                    }
+
 -- | 'err500' Internal Server Error
 --
 -- Example: