From 1d6cda1230421930ca76fd9790bc23b2231bb514 Mon Sep 17 00:00:00 2001 From: Olivier Nicole Date: Thu, 5 Sep 2024 12:02:48 +0200 Subject: [PATCH] CR --- compiler/tests-sourcemap/dump_sourcemap.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/tests-sourcemap/dump_sourcemap.ml b/compiler/tests-sourcemap/dump_sourcemap.ml index efc03a6fc9..0ee2388520 100644 --- a/compiler/tests-sourcemap/dump_sourcemap.ml +++ b/compiler/tests-sourcemap/dump_sourcemap.ml @@ -36,7 +36,7 @@ let extract_sourcemap lines = Some (Source_map.of_string content) | _ -> None -let print_mapping lines ?(line_offset = 0) (sm : Source_map.t) = +let print_mapping lines ~line_offset (sm : Source_map.t) = let lines = Array.of_list lines in let sources = Array.of_list sm.sources in let _names = Array.of_list sm.names in @@ -72,7 +72,7 @@ let print_mapping lines ?(line_offset = 0) (sm : Source_map.t) = | _ -> ())) let print_sourcemap lines = function - | `Standard sm -> print_mapping lines sm + | `Standard sm -> print_mapping ~offset:0 lines sm | `Index l -> List.iter l.Source_map.Index.sections