From 67320d8f04e1f302306b9aafdaaf4bafcf443839 Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@dailly.me>
Date: Thu, 13 Feb 2025 18:30:34 +0100
Subject: Ignore the dates outside of the julian period

---
 lib/sql/date.ml | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'lib')

diff --git a/lib/sql/date.ml b/lib/sql/date.ml
index e8933c7..b1a8d6a 100644
--- a/lib/sql/date.ml
+++ b/lib/sql/date.ml
@@ -14,6 +14,11 @@ let f : Sqlite3.Data.t -> Sqlite3.Data.t -> Sqlite3.Data.t =
         in
         Sqlite3.Data.INT period
       with
+      | CalendarLib.Date.Out_of_bounds ->
+          prerr_endline
+          @@ Printf.sprintf "Date ignored (outside of Julian period): %s"
+               content;
+          Sqlite3.Data.NULL
       | Invalid_argument e ->
           prerr_endline e;
           Sqlite3.Data.NULL)
-- 
cgit v1.2.3