Improve error message

This commit is contained in:
Suzanne Dupéron 2020-06-17 23:14:50 +01:00
parent ae4a13b63f
commit 242d99fd5e

View File

@ -54,7 +54,7 @@ let rec error_ppformat : display_format:string display_format ->
let s = Format.asprintf "%s\n corner case: %s\n%s" loc desc (corner_case_message ()) in let s = Format.asprintf "%s\n corner case: %s\n%s" loc desc (corner_case_message ()) in
Format.pp_print_string f s Format.pp_print_string f s
| `Spilling_no_type_variable tv -> | `Spilling_no_type_variable tv ->
let s = Format.asprintf "type variables can't be transpiled : %a" Var.pp tv in let s = Format.asprintf "unbound type variables can't be transpiled : %a" Var.pp tv in
Format.pp_print_string f s Format.pp_print_string f s
| `Spilling_unsupported_pattern_matching loc -> | `Spilling_unsupported_pattern_matching loc ->
let s = Format.asprintf "%a\n unsupported pattern-matching: tuple patterns aren't supported yet" Location.pp loc in let s = Format.asprintf "%a\n unsupported pattern-matching: tuple patterns aren't supported yet" Location.pp loc in