Exponential backoff retry logic
Upgrade to ocamlformat 0.29.0; fix csvt/sexpt streaming; reformat
- Update .ocamlformat to 0.29.0 across all 591 files
- csvt: reuse single Buffer.t for field reads (no alloc per field)
- sexpt: Obj members decoded from stream into Dict, typed Variant GADT
- Reformat all source files for 0.29.0
+8
-8
+7
-7
lib/retry.mli
+7
-7
lib/retry.mli
···
10
10
11
11
{1 Example}
12
12
{[
13
-
let config = Retry.config ~max_retries:5 () in
14
-
let should_retry = function
15
-
| Eio.Net.Connection_refused _ -> true
16
-
| _ -> false
17
-
in
18
-
Retry.with_retry ~clock ~config ~should_retry (fun () ->
19
-
connect_to_server ())
13
+
let config = Retry.config ~max_retries:5 () in
14
+
let should_retry = function
15
+
| Eio.Net.Connection_refused _ -> true
16
+
| _ -> false
17
+
in
18
+
Retry.with_retry ~clock ~config ~should_retry (fun () ->
19
+
connect_to_server ())
20
20
]} *)
21
21
22
22
type config = {