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

Adress @altgr's suggestion

Browse Source
This commit is contained in:
Denis Merigoux 2024-03-04 13:30:25 +01:00
parent ad5dd6f2f6
commit c2c46c431e
No known key found for this signature in database
GPG Key ID: EE99DCFA365C3EE3
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/scalc/to_r.ml
View File

@ -172,7 +172,7 @@ let rec format_typ ~inside_comment (fmt : Format.formatter) (typ : typ) : unit =
~pp_sep:(fun fmt () -> Format.fprintf fmt ",@;")
(format_typ ~inside_comment:true))
ts
(fun fmt -> if inside_comment then () else Format.fprintf fmt "@\n")
(fun fmt -> if inside_comment then () else Format.pp_force_newline fmt ())
| TStruct s -> Format.fprintf fmt "\"catala_struct_%a\"" format_struct_name s
| TOption some_typ | TDefault some_typ ->
(* We loose track of optional value as they're crammed into NULL *)
@ -186,11 +186,11 @@ let rec format_typ ~inside_comment (fmt : Format.formatter) (typ : typ) : unit =
t1
(format_typ ~inside_comment:true)
t2
(fun fmt -> if inside_comment then () else Format.fprintf fmt "@\n")
(fun fmt -> if inside_comment then () else Format.pp_force_newline fmt ())
| TArray t1 ->
Format.fprintf fmt "\"list\" # array(%a)%t"
(format_typ ~inside_comment:true) t1 (fun fmt ->
if inside_comment then () else Format.fprintf fmt "@\n")
if inside_comment then () else Format.pp_force_newline fmt ())
| TAny -> Format.fprintf fmt "\"ANY\""
| TClosureEnv -> failwith "unimplemented!"