Add PATCH request method

aristidb · Dec 25, 2012 · ccb7f92 · ccb7f92
1 parent 7ce1ae9
commit ccb7f92
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/Network/HTTP/Types/Method.hs b/Network/HTTP/Types/Method.hs
@@ -5,6 +5,7 @@ module Network.HTTP.Types.Method
 , methodPost
 , methodHead
 , methodPut
+, methodPatch
 , methodDelete
 , methodTrace
 , methodConnect
@@ -25,9 +26,10 @@ import qualified Data.ByteString.Char8 as B8
 type Method = B.ByteString
 
 -- | HTTP Method constants.
-methodGet, methodPost, methodHead, methodPut, methodDelete, methodTrace, methodConnect, methodOptions :: Method
+methodGet, methodPost, methodHead, methodPut, methodPatch, methodDelete, methodTrace, methodConnect, methodOptions :: Method
 methodGet     = renderStdMethod GET
 methodPost    = renderStdMethod POST
+methodPatch   = renderStdMethod PATCH
 methodHead    = renderStdMethod HEAD
 methodPut     = renderStdMethod PUT
 methodDelete  = renderStdMethod DELETE
@@ -39,8 +41,9 @@ methodOptions = renderStdMethod OPTIONS
 data StdMethod
     = GET
     | POST
-    | HEAD  
+    | HEAD
     | PUT
+    | PATCH
     | DELETE
     | TRACE
     | CONNECT