From 2178799c0ed7ef846b6a7c2d7339b6881838b45f Mon Sep 17 00:00:00 2001
From: Calascibetta Romain <romain.calascibetta@gmail.com>
Date: Thu, 7 Dec 2023 19:49:09 +0100
Subject: [PATCH] Fix the usage of tls

---
 httpcats.opam         | 2 +-
 src/http_miou_unix.ml | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/httpcats.opam b/httpcats.opam
index 95aaf27..0327080 100644
--- a/httpcats.opam
+++ b/httpcats.opam
@@ -12,7 +12,7 @@ depends: [
   "logs"
   "miou"
   "httpaf" {>= "0.7.0"}
-  "tls" {>= "0.16.0"}
+  "tls" {>= "0.17.0"}
   "fmt"
   "h2" {>= "0.10.0"}
   "hxd"
diff --git a/src/http_miou_unix.ml b/src/http_miou_unix.ml
index 7413a6a..9e7f62b 100644
--- a/src/http_miou_unix.ml
+++ b/src/http_miou_unix.ml
@@ -66,8 +66,8 @@ let epoch tls =
   | `End_of_input | `Error _ -> None
   | `Active tls -> (
       match Tls.Engine.epoch tls with
-      | `InitialEpoch -> assert false
-      | `Epoch data -> Some data)
+      | Error () -> assert false
+      | Ok data -> Some data)
 
 (* Implementations. *)