fixup! Source maps: use ignoreList to hide runtime files

ocsigen · Oct 21, 2024 · c9488bb · c9488bb
1 parent 7b6788e
commit c9488bb
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/compiler/lib/js_output.ml b/compiler/lib/js_output.ml
@@ -2162,8 +2162,7 @@ let program ?(accept_unnamed_var = false) f ?source_map p =
         in
         let ignore_list =
           List.filter sources ~f:(fun filename ->
-              String.length filename >= 9
-              && String.equal (String.sub filename ~pos:0 ~len:9) "/builtin/")
+              String.is_prefix ~prefix:"/builtin/" filename)
         in
         let sm_mappings = Source_map.Mappings.decode sm.mappings in
         let relocate pos m =