upstream: https://github.com/mirage/ocaml-gpt
ocaml-linkedin: apply dune fmt
Pure formatting changes from `dune fmt`: doc comment placement moves
from above the binding to below it for `type`s, multi-line `match`
expressions collapse onto one line where they fit, and infix operator
applications pick up spaces (`Soup.($?)` -> `Soup.( $? )`). No
semantic changes.
+24
-4
+17
-4
README.md
+17
-4
README.md
···
18
18
19
19
## Installation
20
20
21
+
Install with opam:
22
+
23
+
```sh
24
+
$ opam install gpt
21
25
```
22
-
opam install gpt
26
+
27
+
If opam cannot find the package, it may not yet be released in the public
28
+
`opam-repository`. Add the overlay repository, then install it:
29
+
30
+
```sh
31
+
$ opam repo add samoht https://tangled.org/gazagnaire.org/opam-overlay.git
32
+
$ opam update
33
+
$ opam install gpt
23
34
```
24
35
25
36
## Usage
···
35
46
| Error e -> failwith e
36
47
| Ok part ->
37
48
(* Build the GPT *)
38
-
match Gpt.v ~disk_sectors:2097152L ~sector_size:512 [ part ] with
49
+
50
+
match Gpt.v ~disk_sectors:2097152L ~sector_size:512 [ part ] with
39
51
| Error e -> failwith e
40
52
| Ok gpt -> Fmt.pr "%a@." Gpt.pp gpt
41
53
```
···
47
59
| Error e -> failwith e
48
60
| Ok (`Read_partition_table (lba, num_sectors), k) ->
49
61
(* Read partition table at the given LBA *)
50
-
let table_bytes = read_sectors lba num_sectors in
51
-
match k table_bytes with
62
+
63
+
let table_bytes = read_sectors lba num_sectors
64
+
match k table_bytes with
52
65
| Ok gpt -> Fmt.pr "%a@." Gpt.pp gpt
53
66
| Error e -> failwith e
54
67
```
+4
dune
+4
dune
+2
dune-project
+2
dune-project