We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent dca7513 commit 038aecdCopy full SHA for 038aecd
vendor/ocaml-common/location.ml
@@ -502,7 +502,7 @@ let highlight_quote ppf
502
Format.fprintf ppf "@}@,"
503
| _ ->
504
(* Multi-line error *)
505
- Misc.pp_two_columns ~sep:"|" ~max_lines ppf
+ Format_doc.compat (Format_doc.pp_two_columns ~sep:"|" ~max_lines) ppf
506
@@ List.map (fun (line, line_nb, line_start_cnum) ->
507
let line = String.mapi (fun i car ->
508
if ISet.mem iset ~pos:(line_start_cnum + i) then car else '.'
0 commit comments