add binary_formats.ml

This commit is contained in:
swrup 2025-10-06 23:56:10 +02:00
parent b7b28af6fe
commit 93e0036468
4 changed files with 38 additions and 24 deletions

View file

@ -42,7 +42,9 @@ let () =
let l = parse Data.content in
assert (List.length l = 74);
let pp ppf { name; value } = Fmt.pf ppf "let %s = %d@." name value in
let pp ppf { name; value } =
Fmt.pf ppf "let %s : int32 = %d_l@." name value
in
Fmt.pr "%a" (Fmt.list pp) l;
()