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

Update OCaml assets

Browse Source
This commit is contained in:
Denis Merigoux 2023-04-04 15:19:08 +02:00
parent 3932da6648
commit 7d278caa30
No known key found for this signature in database
GPG Key ID: EE99DCFA365C3EE3
4 changed files with 2973 additions and 4135 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
french_law/ocaml/bench.ml
View File

@ -125,7 +125,6 @@ let aides_logement_input :
logement = logement =
{ {
residence_principale = true; residence_principale = true;
est_ehpad_ou_maison_autonomie_l313_12_asf = false;
mode_occupation = mode_occupation =
Law_source.Aides_logement.ModeOccupation.Locataire Law_source.Aides_logement.ModeOccupation.Locataire
{ {
@ -205,13 +204,6 @@ let aides_logement_input :
demandeur_in = demandeur_in =
{ {
nationalite = Law_source.Aides_logement.Nationalite.Francaise (); nationalite = Law_source.Aides_logement.Nationalite.Francaise ();
patrimoine =
{
produisant_revenu_periode_r822_3_3_r822_4 =
Runtime.money_of_units_int 0;
ne_produisant_pas_revenu_periode_r822_3_3_r822_4 =
Runtime.money_of_units_int 0;
};
personne_hebergee_centre_soin_l_L162_22_3_securite_sociale = false; personne_hebergee_centre_soin_l_L162_22_3_securite_sociale = false;
date_naissance = Runtime.date_of_numbers 1992 1 1; date_naissance = Runtime.date_of_numbers 1992 1 1;
est_non_salarie_agricole_l781_8_l_781_46_code_rural = false; est_non_salarie_agricole_l781_8_l_781_46_code_rural = false;

6286
french_law/ocaml/law_source/aides_logement.ml generated
View File

File diff suppressed because it is too large Load Diff

812
french_law/ocaml/law_source/allocations_familiales.ml generated
View File

File diff suppressed because it is too large Load Diff

2
runtimes/jsoo/runtime.ml
View File

@ -168,7 +168,7 @@ let execute_or_throw_error f =
Js.Js_error.raise_ Js.Js_error.raise_
(Js.Js_error.of_error (Js.Js_error.of_error
(object%js (object%js
val mutable name = Js.string "NoValueProvided" val mutable name = Js.string "CatalaError"
val mutable message = msg val mutable message = msg
val mutable stack = Js.Optdef.empty val mutable stack = Js.Optdef.empty
method toString = msg method toString = msg