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. *)