diff --git a/Network/HTTP/Types/Status.hs b/Network/HTTP/Types/Status.hs index eef2be3..2ae3ebc 100644 --- a/Network/HTTP/Types/Status.hs +++ b/Network/HTTP/Types/Status.hs @@ -84,6 +84,8 @@ module Network.HTTP.Types.Status , tooManyRequests429 , status431 , requestHeaderFieldsTooLarge431 +, status451 +, unavailableForLegalReasons451 , status500 , internalServerError500 , status501 @@ -527,6 +529,16 @@ status431 = mkStatus 431 "Request Header Fields Too Large" requestHeaderFieldsTooLarge431 :: Status requestHeaderFieldsTooLarge431 = status431 +-- | Unavailable For Legal Reasons 451 +-- () +status451 :: Status +status451 = mkStatus 451 "Unavailable For Legal Reasons" + +-- | Unavailable For Legal Reasons 451 +-- () +unavailableForLegalReasons451 :: Status +unavailableForLegalReasons451 = status451 + -- | Internal Server Error 500 status500 :: Status status500 = mkStatus 500 "Internal Server Error"