upstream: https://github.com/mirage/ocaml-gpt
fix(lint): resolve E410, E415, E510 in ocaml-git and github-oauth
- E410: fix doc style for of_string_exn, v, inflate, bool_codec,
access_token_url and 5 repository.mli @param missing periods
- E415: add pp to Config, Index, Repository types
- E510: add Logs source to Subtree module
- E331 auto-fixes: Config rename get_all→all, get_bool→bool,
get_int→int, find_sections→sections, get_remotes→remotes,
get_remote→remote, get_branches→branches, get_user→user;
cascading updates in repository, tests, fuzz, monopam, precommit
- Auto-fixes in freebox, gpt, hap
+5
-2
+2
-2
lib/gpt.ml
+2
-2
lib/gpt.ml
···
147
147
partitions_crc32 : int32;
148
148
}
149
149
150
-
let make_raw_header _sig revision header_size header_crc32 reserved current_lba
150
+
let raw_header _sig revision header_size header_crc32 reserved current_lba
151
151
backup_lba first_usable_lba last_usable_lba disk_guid partition_entry_lba
152
152
num_partition_entries partition_size partitions_crc32 =
153
153
{
···
168
168
169
169
let header_codec =
170
170
let open Wire.Codec in
171
-
record "GptHeader" make_raw_header
171
+
record "GptHeader" raw_header
172
172
|+ field "signature"
173
173
(Wire.byte_array ~size:(Wire.int 8))
174
174
(fun _ -> "EFI PART")