gazagnaire.org / ocaml-tls
upstream: github.com/mirleft/ocaml-tls
0
fork

Configure Feed

Select the types of activity you want to include in your feed.

tls: Use open Result.Syntax instead of local let* definition

Add open Result.Syntax to all files that use let* and remove the
module-level let* export from core.ml. Files with existing local
opens (like config.ml) keep their local pattern unchanged.

Thomas Gazagnaire aed0b6bb 876335a4

+7 -2
-1
lib/core.ml
··· 3 3 open Packet 4 4 open Ciphersuite 5 5 6 - let ( let* ) = Result.bind 7 6 let guard p e = if p then Ok () else Error e 8 7 9 8 let split_str ?(start = 0) str off =
+1
lib/engine.ml
··· 1 1 open Core 2 2 open State 3 + open Result.Syntax 3 4 4 5 type state = State.state 5 6 type error = State.error
+1
lib/handshake_client.ml
··· 2 2 open State 3 3 open Handshake_common 4 4 open Config 5 + open Result.Syntax 5 6 6 7 let state_version state = 7 8 match state.protocol_version with
+1
lib/handshake_client13.ml
··· 2 2 open Core 3 3 open Handshake_common 4 4 open Config 5 + open Result.Syntax 5 6 6 7 let answer_server_hello state ch (sh : server_hello) secrets raw log = 7 8 (* assume SH valid, version 1.3, extensions are subset *)
+1
lib/handshake_common.ml
··· 1 1 open Core 2 2 open State 3 + open Result.Syntax 3 4 4 5 let src = Logs.Src.create "handshake" ~doc:"TLS handshake" 5 6
+1
lib/handshake_crypto13.ml
··· 1 1 open Core 2 + open Result.Syntax 2 3 3 4 let cdiv (x : int) (y : int) = 4 5 if x > 0 && y > 0 then (x + y - 1) / y
+1
lib/handshake_server.ml
··· 2 2 open State 3 3 open Handshake_common 4 4 open Config 5 + open Result.Syntax 5 6 6 7 let state_version state = 7 8 match state.protocol_version with
+1 -1
lib/handshake_server13.ml
··· 3 3 open State 4 4 open Core 5 5 open Handshake_common 6 - 7 6 open Handshake_crypto13 7 + open Result.Syntax 8 8 9 9 let answer_client_hello ~hrr state ch raw = 10 10 let* () = client_hello_valid `TLS_1_3 ch in