From e3c1dd2df5a593829a4d5864f8ff7ea4582da55c Mon Sep 17 00:00:00 2001
From: Bruce Hill <bruce@bruce-hill.com>
Date: Mon, 28 Oct 2024 14:37:30 -0400
Subject: [PATCH] Add PATCH

---
 examples/http/http.tm | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/examples/http/http.tm b/examples/http/http.tm
index a1bcccc..934c869 100644
--- a/examples/http/http.tm
+++ b/examples/http/http.tm
@@ -39,6 +39,14 @@ func _send(method:_Method, url:Text, data:Text?, headers=[:Text] -> HTTPResponse
             inline C {
                 curl_easy_setopt(curl, CURLOPT_POSTFIELDS, Text$as_c_string($putting));
             }
+    is PATCH:
+        inline C {
+            curl_easy_setopt(curl, CURLOPT_CUSTOMREQUEST, "PATCH");
+        }
+        if patching := data:
+            inline C {
+                curl_easy_setopt(curl, CURLOPT_POSTFIELDS, Text$as_c_string($patching));
+            }
     is DELETE:
         inline C {
             curl_easy_setopt(curl, CURLOPT_CUSTOMREQUEST, "DELETE");
@@ -78,6 +86,9 @@ func post(url:Text, data="", headers=["Content-Type: application/json", "Accept:
 func put(url:Text, data="", headers=["Content-Type: application/json", "Accept: application/json"] -> HTTPResponse):
     return _send(PUT, url, data, headers)
 
+func patch(url:Text, data="", headers=["Content-Type: application/json", "Accept: application/json"] -> HTTPResponse):
+    return _send(PATCH, url, data, headers)
+
 func delete(url:Text, data=!Text, headers=["Content-Type: application/json", "Accept: application/json"] -> HTTPResponse):
     return _send(DELETE, url, data, headers)