diff options
Diffstat (limited to 'lib/sql/date.ml')
| -rw-r--r-- | lib/sql/date.ml | 5 |
1 files changed, 5 insertions, 0 deletions
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) |