···2223let fmt source =
24 let ast = ast source in
25- let ast =
26- let ghostify =
27- {
28- Parser_extended.Ast_mapper.default_mapper with
29- location = (fun _ loc -> { loc with loc_ghost = true });
30- }
31- in
32- { ast with ast = ghostify.structure ghostify ast.ast }
33- in
34 let with_buffer_formatter ~buffer_size k =
35 let buffer = Buffer.create buffer_size in
36 let fs = Format_.formatter_of_buffer buffer in
···2223let fmt source =
24 let ast = ast source in
00000000025 let with_buffer_formatter ~buffer_size k =
26 let buffer = Buffer.create buffer_size in
27 let fs = Format_.formatter_of_buffer buffer in