Generic TTL cache with Eio
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
+9
-9
+8
-8
lib/cache.mli
+8
-8
lib/cache.mli
···
10
10
11
11
{1 Example}
12
12
{[
13
-
module MyCache = Cache.Make (struct
14
-
type t = int
13
+
module MyCache = Cache.Make (struct
14
+
type t = int
15
15
16
-
let equal = Int.equal
17
-
let hash = Hashtbl.hash
18
-
end)
16
+
let equal = Int.equal
17
+
let hash = Hashtbl.hash
18
+
end)
19
19
20
-
let cache = MyCache.create ~clock:(Eio.Stdenv.clock env) ()
21
-
let () = MyCache.set cache 42 "answer"
22
-
let value = MyCache.get cache 42 (* Some "answer" *)
20
+
let cache = MyCache.create ~clock:(Eio.Stdenv.clock env) ()
21
+
let () = MyCache.set cache 42 "answer"
22
+
let value = MyCache.get cache 42 (* Some "answer" *)
23
23
]} *)
24
24
25
25
module type KEY = sig