HomeKit Accessory Protocol (HAP) for OCaml
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
+4
-4
+3
-3
lib/hap.ml
+3
-3
lib/hap.ml
···
691
691
let load_pairing ~fs ~path =
692
692
let full_path = Eio.Path.(fs / path) in
693
693
if not (Eio.Path.is_file full_path) then None
694
-
else begin
695
-
try
694
+
else
695
+
begin try
696
696
let content = Eio.Path.load full_path in
697
697
match Jsont_bytesrw.decode_string Pairing_json.stored content with
698
698
| Ok stored -> Some (Pairing_json.to_pairing stored)
699
699
| Error _ -> None
700
700
with Eio.Io _ -> None
701
-
end
701
+
end
702
702
703
703
(* Save pairing by device_id *)
704
704
let save_pairing_by_id ~fs pairing =