From 2bc526a0348961fdd332da0cfce1b13d844eb593 Mon Sep 17 00:00:00 2001
From: "yann.degat" <yann.degat@ovhcloud.com>
Date: Fri, 12 Mar 2021 11:43:01 +0000
Subject: [PATCH] std/net/request: align args on http-*

make http-* take the same args list
(http-get, http-delete, http-options)
---
 src/std/net/request.ss | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

diff --git a/src/std/net/request.ss b/src/std/net/request.ss
index 3dbaaa1b5..aa443ac2a 100644
--- a/src/std/net/request.ss
+++ b/src/std/net/request.ss
@@ -106,25 +106,28 @@
           (cons (cons key value) headers))))))
   (foldr fold-e headers new-headers))
 
+
 (def (http-get url
                redirect: (redirect #t)
                headers:  (headers #f)
                cookies:  (cookies #f)
                params:   (params #f)
+               data:     (data #f)
                auth:     (auth #f))
   (let ((url (url-target-e url params))
         (headers (make-http/1.1-headers headers cookies auth)))
-    (http-request 'GET url headers #f [] redirect)))
+    (http-request 'GET url headers data [] redirect)))
 
 (def (http-head url
                 redirect: (redirect #t)
                 headers:  (headers #f)
                 cookies:  (cookies #f)
                 params:   (params #f)
+                data:     (data #f)
                 auth:     (auth #f))
   (let ((url (url-target-e url params))
         (headers (make-http/1.1-headers headers cookies auth)))
-    (http-request 'HEAD url headers #f [] redirect)))
+    (http-request 'HEAD url headers data [] redirect)))
 
 (def (http-post url
                 redirect: (redirect #t)
@@ -162,19 +165,22 @@
                   headers:  (headers #f)
                   cookies:  (cookies #f)
                   params:   (params #f)
+                  data:     (data #f)
                   auth:     (auth #f))
   (let ((url (url-target-e url params))
         (headers (make-http/1.1-headers headers cookies auth)))
-    (http-request 'DELETE url headers #f [] redirect)))
+    (http-request 'DELETE url headers data [] redirect)))
 
 (def (http-options url
+                   redirect: (redirect #t)
                    headers:  (headers #f)
                    cookies:  (cookies #f)
                    params:   (params #f)
+                   data:     (data #f)
                    auth:     (auth #f))
   (let ((url (url-target-e url params))
         (headers (make-http/1.1-headers headers cookies auth)))
-    (http-request 'HEAD url headers #f [] #f)))
+    (http-request 'OPTIONS url headers data [] redirect)))
 
 (def url-rx
   (pregexp "(?:(https?)://)?([^/:]+)(:[0-9]+)?(/.*)?"))