Skip to content

Commit 73ff695

Browse files
committed
missing fn
1 parent 68cdec1 commit 73ff695

File tree

1 file changed

+5
-1
lines changed

1 file changed

+5
-1
lines changed

compiler/ml/printtyp.ml

Lines changed: 5 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1614,7 +1614,11 @@ let print_variant_configuration_issue ppf
16141614
@{<info>@tag@} configuration, or no @{<info>@tag@} at all."
16151615
| Incompatible_constructor_count {constructor_names} ->
16161616
let total_constructor_count = List.length constructor_names in
1617-
let constructor_names_to_print = constructor_names |> List.take 3 in
1617+
let constructor_names_to_print =
1618+
match constructor_names with
1619+
| a :: b :: c :: _ -> [a; b; c]
1620+
| names -> names
1621+
in
16181622
let not_printed_constructor_count =
16191623
total_constructor_count - List.length constructor_names_to_print
16201624
in

0 commit comments

Comments
 (0)