Better error message in OCaml

2018-07-10 15:27:43 +02:00 · 2018-07-10 15:27:43 +02:00 · 8e20da23d5
parent 4142dac475
commit 8e20da23d5
1 changed files with 3 additions and 1 deletions
--- a/src/ezfio.ml
+++ b/src/ezfio.ml
@ -378,7 +378,9 @@ let read_array type_conversion group name : 'a ezfio_array =
      (* Read one-dimensional arrays *)
      let read_1d nmax = 
        Ezfio_item (Array.init nmax (fun i->
-          type_conversion (trim (input_line in_channel))) )
+          let buffer = trim (input_line in_channel) in
+          try type_conversion buffer with
+          | Failure s -> failwith (s^": "^buffer))
      in
      (* Read multi-dimensional arrays *)
      let rec read_nd = function