Reynir Björnsson
f5d23778cb
* Asserts and cstruct exceptions are removed in favor of result * Parse separately and don't emit `RESERVED_FIRST` mft_entry * Add .mli file exposing types, pretty printers and `query_manifest`
17 lines
353 B
OCaml
17 lines
353 B
OCaml
type mft_entry =
|
|
| Dev_block_basic of {
|
|
name : string;
|
|
}
|
|
| Dev_net_basic of {
|
|
name : string;
|
|
}
|
|
|
|
type mft = {
|
|
version : int;
|
|
entries : mft_entry list;
|
|
}
|
|
|
|
val pp_mft_entry : Format.formatter -> mft_entry -> unit
|
|
val pp_mft : Format.formatter -> mft -> unit
|
|
|
|
val query_manifest : Owee_buf.t -> (mft, [> `Msg of string ]) result
|