Linear Feedback Shift Registers for OCaml
claude: complete Err -> Error module rename across call sites
Follow up to the module rename: update the remaining callers that
still referenced [Err] (library [claude.ml{,i}], [client.ml], the test
driver [test.ml]), and fix one stray [^ e] string concatenation in
hermest's CLI that needed [Json.Error.to_string e] now that
[Json.of_string] yields a structured error.
-9
-9
test/test_lfsr.ml
-9
test/test_lfsr.ml
···
3
3
SPDX-License-Identifier: MIT
4
4
---------------------------------------------------------------------------*)
5
5
6
-
let hex_of_bytes b =
7
-
let buf = Buffer.create (Bytes.length b * 3) in
8
-
Bytes.iteri
9
-
(fun i c ->
10
-
if i > 0 then Buffer.add_char buf ' ';
11
-
Buffer.add_string buf (Fmt.str "%02X" (Char.code c)))
12
-
b;
13
-
Buffer.contents buf
14
-
15
6
let bytes_of_hex s =
16
7
let s = String.concat "" (String.split_on_char ' ' s) in
17
8
let len = String.length s / 2 in