anil.recoil.org
OCaml library for Crockford's Base32
Documentation and code quality improvements across libraries
- Add README files for jsonwt, owntracks, monopam, and srcsetter
- Fix langdetect language count (47→49) in dune-project
- Remove unused variable in crockford encode function
- Improve retention type documentation in zulip channels.mli
- Refactor conpool is_healthy to reduce nesting and improve clarity
- Document unimplemented IDNA features in punycode README
Co-Authored-By: Claude Opus 4.5 <noreply@anthropic.com>
+1
-3
lib/crockford.ml
+1
-3
lib/crockford.ml
···
63
process 0 0
64
65
let encode ?(split_every=0) ?(min_length=0) ?(checksum=false) number =
66
-
let original_number = number in
67
-
68
(* Build base32 encoding *)
69
let rec build_encoding acc n =
70
if Int64.equal n 0L then acc
···
98
(* Add checksum *)
99
let with_checksum =
100
if checksum then
101
-
let cs = generate_checksum original_number in
102
padded ^ Printf.sprintf "%02Ld" cs
103
else
104
padded
···
63
process 0 0
64
65
let encode ?(split_every=0) ?(min_length=0) ?(checksum=false) number =
66
(* Build base32 encoding *)
67
let rec build_encoding acc n =
68
if Int64.equal n 0L then acc
···
96
(* Add checksum *)
97
let with_checksum =
98
if checksum then
99
+
let cs = generate_checksum number in
100
padded ^ Printf.sprintf "%02Ld" cs
101
else
102
padded