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
239239 Res_parser. make ~mode src filename
240240
241241 (* get full super error message *)
242- let diagnosticToString ~src (d : Res_diagnostics.t ) =
242+ let diagnosticToString ~( src : string ) (d : Res_diagnostics.t ) =
243243 let startPos = Res_diagnostics. getStartPos(d) in
244244 let endPos = Res_diagnostics. getEndPos(d) in
245245 let msg = Res_diagnostics. explain(d) in
246246 let loc = {loc_start = startPos; Location. loc_end= endPos; loc_ghost= false } in
247247 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)
249250 Format. str_formatter
250- src
251251 err;
252252 Format. flush_str_formatter ()
253253
You can’t perform that action at this time.
0 commit comments