From da551ffe2520e28be91b4e55e75aed327eaa130f Mon Sep 17 00:00:00 2001
From: Rhiannon Morris <rhi@rhiannon.website>
Date: Sat, 5 Dec 2020 15:12:50 +0100
Subject: [PATCH] remove unnecessary exception match

---
 day4.ml | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/day4.ml b/day4.ml
index 99aecaf..33b885b 100644
--- a/day4.ml
+++ b/day4.ml
@@ -105,9 +105,8 @@ module Validators = struct
 
   let year_range lo hi x =
     x =~? {|^\d{4}$|} &&
-    match int_of_string x with
-    | exception Invalid_argument _ -> false
-    | x -> x >= lo && x <= hi
+    let x = int_of_string x in
+    x >= lo && x <= hi
 
   let%test _ = year_range 1900 2000 "1950"
   let%test _ = year_range 1900 2000 "1900"