CatalaLang/catala
1
1
Fork 0
mirror of https://github.com/CatalaLang/catala.git synced 2024-11-08 07:51:43 +03:00
Code Issues Projects Releases Wiki Activity

JSOO runtime fix

Browse Source
This commit is contained in:
Denis Merigoux 2024-05-03 09:35:20 +02:00
parent facce68b25
commit 8288754de2
No known key found for this signature in database
GPG Key ID: EE99DCFA365C3EE3
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
runtimes/jsoo/runtime.ml
View File

@ -63,12 +63,10 @@ let date_of_js d =
let fail () = failwith "date_of_js: invalid date" in let fail () = failwith "date_of_js: invalid date" in
match String.split_on_char '-' d with match String.split_on_char '-' d with
| [year; month; day] -> ( | [year; month; day] -> (
match try
R_ocaml.date_of_numbers (int_of_string year) (int_of_string month) R_ocaml.date_of_numbers (int_of_string year) (int_of_string month)
(int_of_string day) (int_of_string day)
with with Failure _ -> fail ())
| Some d -> d
| None -> fail ())
| _ -> fail () | _ -> fail ()
let date_to_js d = Js.string @@ R_ocaml.date_to_string d let date_to_js d = Js.string @@ R_ocaml.date_to_string d