better lines_of_input error

This commit is contained in:
ryan 2023-09-21 21:56:32 -07:00
parent 89eb0c7a27
commit d8a90a3ae5

View File

@ -2,7 +2,7 @@ let lines_of_input day =
let base_path =
match Inputs.Sites.inputs with
| path :: _ -> path
| _ -> failwith "cant find sites path"
| _ -> failwith "cant find path containing inputs"
in
let path = Printf.sprintf "%s/day%d.tt" base_path day in
Stdio.In_channel.(with_file path ~f:input_lines)