rhi/aoc2020
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

fix usage msg

Browse source
This commit is contained in:
Rhiannon Morris 2020-12-03 09:53:44 +01:00
parent 11d9781065
commit 5c59d80e00
4 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
day1.ml
View file

@ -41,7 +41,7 @@ let mains = [|main' 2; main' 3|]
let main = function
| [part; input] -> mains.(int_of_string part - 1) input
| _ -> Usage.exit "1 <part> <infile>"
| _ -> Usage.exit_default 1
let%expect_test "part 1" =

2
day2.ml
View file

@ -30,7 +30,7 @@ let mains = [|main' ok1; main' ok2|]
let main = function
| [part; input] -> mains.(int_of_string part - 1) input
| _ -> Usage.exit "2 <part> <infile>"
| _ -> Usage.exit_default 2
let%expect_test "part 1" =

2
day3.ml
View file

@ -48,7 +48,7 @@ let mains = [|main1; main2|]
let main = function
| [part; input] -> mains.(int_of_string part - 1) input
| _ -> failwith "a"
| _ -> Usage.exit_default 3
let%expect_test _ =
main1 "../../data/day3";

2
usage.ml
View file

@ -2,3 +2,5 @@ let exit args =
let err = Format.sprintf "usage: %s %s" Sys.argv.(0) args in
print_endline err;
exit 1
let exit_default day = exit (string_of_int day ^ " <part> <infile>")