CatalaLang/catala
1
1
Fork 0
mirror of https://github.com/CatalaLang/catala.git synced 2024-09-20 00:41:05 +03:00
Code Issues Projects Releases Wiki Activity

fix(french_law): add wildcard argument to NoValueProvided constructor inside src/french_law/bench.ml in order to compile

Browse Source
This commit is contained in:
EmileRolley 2021-06-08 20:12:25 +02:00
parent e469854e86
commit 727e9944c8
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/french_law/bench.ml
View File

@ -72,10 +72,10 @@ let run_test () =
incr num_successful;
total_amount := Float.add !total_amount amount
with
| (NoValueProvided | ConflictError) as err ->
| (NoValueProvided _ | ConflictError) as err ->
Format.printf "%s\n%a\nincome: %d\ncurrent_date: %s\nresidence: %a\n"
(match err with
| NoValueProvided -> "No value provided somewhere!"
| NoValueProvided _ -> "No value provided somewhere!"
| ConflictError -> "Conflict error!"
| _ -> failwith "impossible")
(Format.pp_print_list (fun fmt child ->