From df7fd05b60a49d14edf9d0aa3194ec586f62a498 Mon Sep 17 00:00:00 2001 From: joris giovannangeli Date: Mon, 23 Jul 2018 09:38:56 +0800 Subject: [PATCH] add HTTP_VERSION_2_PRIOR_KNOWLEDGE --- curl-helper.c | 7 +++++++ curl.ml | 1 + curl.mli | 1 + 3 files changed, 9 insertions(+) diff --git a/curl-helper.c b/curl-helper.c index 32b032e..93e1d31 100644 --- a/curl-helper.c +++ b/curl-helper.c @@ -2035,6 +2035,13 @@ static void handle_HTTP_VERSION(Connection *conn, value option) version = CURL_HTTP_VERSION_2TLS; #endif break; + case 5: +#if defined(CURL_HTTP_VERSION_2_PRIOR_KNOWLEDGE) + version = CURL_HTTP_VERSION_2_PRIOR_KNOWLEDGE; +#else + caml_invalid_argument("CURLOPT_HTTP_VERSION: unsupported version CURL_HTTP_VERSION_2_PRIOR_KNOWLEDGE"); +#endif + break; default: caml_invalid_argument("CURLOPT_HTTP_VERSION"); break; diff --git a/curl.ml b/curl.ml index b408786..f4028f5 100644 --- a/curl.ml +++ b/curl.ml @@ -165,6 +165,7 @@ type curlHTTPVersion = | HTTP_VERSION_1_1 | HTTP_VERSION_2 | HTTP_VERSION_2TLS + | HTTP_VERSION_2_PRIOR_KNOWLEDGE type curlDebugType = | DEBUGTYPE_TEXT diff --git a/curl.mli b/curl.mli index 0395d75..c0b1335 100644 --- a/curl.mli +++ b/curl.mli @@ -173,6 +173,7 @@ type curlHTTPVersion = | HTTP_VERSION_1_1 (** please use HTTP 1.1 *) | HTTP_VERSION_2 (** please use HTTP 2 *) | HTTP_VERSION_2TLS (** use version 2 for HTTPS, version 1.1 for HTTP *) + | HTTP_VERSION_2_PRIOR_KNOWLEDGE (** Issue non-TLS HTTP requests using HTTP/2 without HTTP/1. *) type curlDebugType = | DEBUGTYPE_TEXT -- 2.11.4.GIT