Skip to content
Snippets Groups Projects
Commit e9bae886 authored by Julien Girard-Satabin's avatar Julien Girard-Satabin
Browse files

[SAVer] Renamed fail condition on OVO parser.

parent fa7682df
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 3 additions and 3 deletions
lib/ovo/ovo.ml
+ 3
− 3
View file @ e9bae886
...@@ -48,15 +48,15 @@ let skip_ovo_header filename in_channel = ...@@ -48,15 +48,15 @@ let skip_ovo_header filename in_channel =
let handle_ovo_basic_info in_channel = let handle_ovo_basic_info in_channel =
match handle_ovo_line ~f:Int.of_string in_channel with match handle_ovo_line ~f:Int.of_string in_channel with
| [ dim ] -> Ok dim | [ dim ] -> Ok dim
| _ -> ovo_format_error "second" | _ -> ovo_format_error "first"
| exception End_of_file -> ovo_format_error "second" | exception End_of_file -> ovo_format_error "first"
(* Skip unused flag. *) (* Skip unused flag. *)
let handle_ovo_unused_flag in_channel = let handle_ovo_unused_flag in_channel =
try try
let _ = Csv.next in_channel in let _ = Csv.next in_channel in
Ok () Ok ()
with End_of_file -> ovo_format_error "forth" with End_of_file -> ovo_format_error "second"
(* Retrieves [filename] OVO model metadata and weights wrt OVO format (* Retrieves [filename] OVO model metadata and weights wrt OVO format
specification, which is described here: specification, which is described here:
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment