fix bad error PP that can appear in tests

This commit is contained in:
Lesenechal Remi 2020-07-01 16:40:12 +02:00
parent bff67e3779
commit e1177de402

View File

@ -59,7 +59,7 @@ let rec error_ppformat : display_format:string display_format ->
Format.pp_print_string f s ; Format.pp_print_string f s ;
| `Stacking_expression_tracer (e,ty,err) -> | `Stacking_expression_tracer (e,ty,err) ->
Format.fprintf f Format.fprintf f
"@[<hv>compiling expression@%a of type %a@%a]" "@[<hv>compiling expression %a@ of type %a@ %a]"
Mini_c.PP.expression e Mini_c.PP.expression e
Mini_c.PP.type_variable ty Mini_c.PP.type_variable ty
(error_ppformat ~display_format) err (error_ppformat ~display_format) err