lib: make decode raise Invalid_argument exception

bikallem · Jan 5, 2023 · d3daa65 · d3daa65
1 parent 8cb73b0
commit d3daa65
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/lib/http_date.ml b/lib/http_date.ml
@@ -67,7 +67,10 @@ let decode ?century s =
         in
         Ptime.of_date_time ((y, m, d), time) |> Option.get
     | `ASCTIME -> Ptime.of_date_time (date, time) |> Option.get
-  with exn -> failwith @@ Printexc.to_string exn
+  with exn ->
+    raise
+    @@ Invalid_argument
+         ("s contains invalid date time format. " ^ Printexc.to_string exn)
 
 let encode ?(encoding = IMF) t =
   let buf = Buffer.create 29 in