Fix reversed order of manifest entry elements

This commit is contained in:
Robur 2021-12-13 14:14:58 +00:00
parent f5d23778cb
commit 55ea217151

View file

@ -105,6 +105,7 @@ let parse_mft buf =
| `Reserved_first -> Error (`Msg "found RESERVED_FIRST not as first entry")) | `Reserved_first -> Error (`Msg "found RESERVED_FIRST not as first entry"))
(Ok []) (Ok [])
entries entries
|> List.rev
in in
Ok { version = Int32.to_int version; entries } Ok { version = Int32.to_int version; entries }