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

Fix warning

Browse Source
This commit is contained in:
Louis Gesbert 2024-01-29 11:37:42 +01:00
parent a033f02689
commit 5d233f4532
2 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/scalc/print.ml
View File

@ -42,7 +42,6 @@ let rec format_expr
| EVar v -> Format.fprintf fmt "%a" format_var_name v | EVar v -> Format.fprintf fmt "%a" format_var_name v
| EFunc v -> Format.fprintf fmt "%a" format_func_name v | EFunc v -> Format.fprintf fmt "%a" format_func_name v
| EStruct { fields = es; name = s } -> | EStruct { fields = es; name = s } ->
let fields = StructName.Map.find s decl_ctx.ctx_structs in
Format.fprintf fmt "@[<hov 2>%a@ %a%a%a@]" StructName.format s Format.fprintf fmt "@[<hov 2>%a@ %a%a%a@]" StructName.format s
Print.punctuation "{" Print.punctuation "{"
(Format.pp_print_list (Format.pp_print_list

1
tests/test_modules/good/output/mod_def.ml@post
View File

@ -1 +0,0 @@
0