From c2043fd97119382ca6f92dc2dd3e7a68c1e5567c Mon Sep 17 00:00:00 2001
From: Hannes Mehnert <hannes@mehnert.org>
Date: Tue, 21 Mar 2023 20:33:54 +0100
Subject: [PATCH] adapt to h2 0.10.0 API

---
 http-mirage-client.opam   | 2 +-
 src/http_mirage_client.ml | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/http-mirage-client.opam b/http-mirage-client.opam
index e687a51..912afb0 100644
--- a/http-mirage-client.opam
+++ b/http-mirage-client.opam
@@ -21,7 +21,7 @@ depends: [
   "mirage-clock-unix" {with-test}
   "mirage-crypto-rng" {with-test}
   "mirage-time-unix" {with-test}
-  "h2"
+  "h2" {>= "0.10.0"}
 ]
 build: [
   ["dune" "subst"] {dev}
diff --git a/src/http_mirage_client.ml b/src/http_mirage_client.ml
index 7911fc7..fc63120 100644
--- a/src/http_mirage_client.ml
+++ b/src/http_mirage_client.ml
@@ -257,7 +257,7 @@ let single_h2_request
       | `Exn e -> Error (`Msg ("Exception here: " ^ Printexc.to_string e)) in
     wakeup err in
   let conn =
-    H2.Client_connection.create ?config ?push_handler:None ~error_handler in
+    H2.Client_connection.create ?config ?push_handler:None ~error_handler () in
   let request_body =
     H2.Client_connection.request conn req ~error_handler ~response_handler in
   Lwt.async (fun () -> Paf.run (module H2.Client_connection) conn flow)