From 5c59d80e006dce95324b8b3d0ecee8e8474e914f Mon Sep 17 00:00:00 2001 From: Rhiannon Morris Date: Thu, 3 Dec 2020 09:53:44 +0100 Subject: [PATCH] fix usage msg --- day1.ml | 2 +- day2.ml | 2 +- day3.ml | 2 +- usage.ml | 2 ++ 4 files changed, 5 insertions(+), 3 deletions(-) diff --git a/day1.ml b/day1.ml index 0544c68..8350af9 100644 --- a/day1.ml +++ b/day1.ml @@ -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 " + | _ -> Usage.exit_default 1 let%expect_test "part 1" = diff --git a/day2.ml b/day2.ml index 3cf4e8a..4c3674c 100644 --- a/day2.ml +++ b/day2.ml @@ -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 " + | _ -> Usage.exit_default 2 let%expect_test "part 1" = diff --git a/day3.ml b/day3.ml index 0a0f25b..5530f03 100644 --- a/day3.ml +++ b/day3.ml @@ -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"; diff --git a/usage.ml b/usage.ml index 572b8e6..f572b7b 100644 --- a/usage.ml +++ b/usage.ml @@ -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 ^ " ")