From fec113e48f93b9b6129d228a6e2a6825b827fb0d Mon Sep 17 00:00:00 2001
From: Dimitri Lozeve <dimitri@lozeve.com>
Date: Mon, 2 Oct 2023 18:09:53 +0200
Subject: [PATCH] Remove useless SetPost function

---
 README.org |  2 +-
 curl.bqn   | 13 ++++---------
 2 files changed, 5 insertions(+), 10 deletions(-)

diff --git a/README.org b/README.org
index 9723b3b..bba8bbc 100644
--- a/README.org
+++ b/README.org
@@ -62,7 +62,7 @@ also return it so that they can be chained easily.
 - ~headers SetHeaders session~: the request headers, as a list of strings.
 - ~SetVerbose session~: log verbose request data to standard output.
 - ~n SetTimeout session~ and ~n SetTimeoutms timeout~: the request timeout, in seconds or in milliseconds.
-- ~SetPost session~ and ~data SetData session~: use a POST request and set the data to send, as a string.
+- ~data SetData session~: use a POST request and set the data to send, as a string.
 
 Finally, perform the actual request with ~Perform~, returning the
 response object as above.
diff --git a/curl.bqn b/curl.bqn
index 30d3189..4bd3b30 100644
--- a/curl.bqn
+++ b/curl.bqn
@@ -3,7 +3,7 @@
   Get,Post,
   # Advanced API
   OpenSession,ResetSession,CloseSession,  # session management
-  SetURL,SetHeaders,SetVerbose,SetTimeout,SetTimeoutms,SetPost,SetData,  # request parameters
+  SetURL,SetHeaders,SetVerbose,SetTimeout,SetTimeoutms,SetData,  # request parameters
   Perform,  # perform request
 ⟩⇐
 
@@ -42,7 +42,7 @@ Post←{
 𝕊 url‿data: ⟨⟩ 𝕊 url‿data ;
 headers 𝕊 url‿data:
   session←OpenSession @
-  r←Perform data SetData SetPost headers SetHeaders url SetURL session
+  r←Perform data SetData headers SetHeaders url SetURL session
   CloseSession session
   r
 }
@@ -113,14 +113,9 @@ SetTimeoutms←{timeoutms 𝕊 session:
   session
 }
 
-# Use a POST method for the next request
-SetPost←{𝕊 session:
-  "setting up POST request"Check EasySetoptLong⟨session.sessionPtr,curlOptions.post,1⟩
-  session
-}
-
-# Set data to post
+# Use a POST method and set data to post
 SetData←{data 𝕊 session:
+  "setting up POST request"Check EasySetoptLong⟨session.sessionPtr,curlOptions.post,1⟩
   "setting POST data"Check EasySetoptStr⟨session.sessionPtr,curlOptions.postfields,data⟩
   "setting POST data size"Check EasySetoptLong⟨session.sessionPtr,curlOptions.postfieldsize,≠data⟩
   session