Fix type error

This commit is contained in:
Reynir Björnsson 2021-12-14 13:39:56 +01:00
parent 55ea217151
commit dd2c6803c6

View file

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