Generating OCaml for aides au logement

This commit is contained in:
Denis Merigoux 2022-07-22 19:03:11 +02:00 committed by Emile Rolley
parent 8d3e283669
commit 7461a8db31
3 changed files with 45503 additions and 1 deletions

File diff suppressed because it is too large Load Diff

File diff suppressed because it is too large Load Diff

View File

@ -506,7 +506,7 @@ let enfant_le_plus_age (enfant_le_plus_age_in : EnfantLePlusAgeIn.t) :
(fun (acc_ : _) (item_ : _) ->
if predicate_ acc_ >! predicate_ item_ then acc_ else item_)
{
Enfant.identifiant = ~-!(integer_of_string "1");
Enfant.identifiant = integer_of_string "-1";
Enfant.obligation_scolaire =
SituationObligationScolaire.Pendant ();
Enfant.remuneration_mensuelle = money_of_cents_string "0";