File tree Expand file tree Collapse file tree 1 file changed +3
-3
lines changed Expand file tree Collapse file tree 1 file changed +3
-3
lines changed Original file line number Diff line number Diff line change @@ -239,15 +239,15 @@ module ResDriver = struct
239
239
Res_parser. make ~mode src filename
240
240
241
241
(* get full super error message *)
242
- let diagnosticToString ~src (d : Res_diagnostics.t ) =
242
+ let diagnosticToString ~( src : string ) (d : Res_diagnostics.t ) =
243
243
let startPos = Res_diagnostics. getStartPos(d) in
244
244
let endPos = Res_diagnostics. getEndPos(d) in
245
245
let msg = Res_diagnostics. explain(d) in
246
246
let loc = {loc_start = startPos; Location. loc_end= endPos; loc_ghost= false } in
247
247
let err = { Location. loc; msg; sub= [] ; if_highlight= " " } in
248
- Res_diagnostics_printing_utils.Super_location. super_error_reporter
248
+ Location. default_error_reporter
249
+ ~src: (Some src)
249
250
Format. str_formatter
250
- src
251
251
err;
252
252
Format. flush_str_formatter ()
253
253
You can’t perform that action at this time.
0 commit comments