···554554 ~preview_before
555555 ~preview_after
556556 in
557557+ if not (Hashtbl.mem base_nodes elided_marker)
558558+ then Hashtbl.replace base_nodes elided_marker (make_elided_node ());
557559 let final_nodes = Hashtbl.create (List.length ordered_ids) in
558560 let rec build_node id =
559561 match Hashtbl.find_opt final_nodes id with
···563565 let base = Hashtbl.find base_nodes id in
564566 let parent_ids =
565567 Option.value (Hashtbl.find_opt parent_map id) ~default:[]
566566- |> List.filter (fun parent_id -> Hashtbl.mem base_nodes parent_id)
568568+ |> List.filter (fun parent_id ->
569569+ Hashtbl.mem base_nodes parent_id || parent_id = elided_marker)
567570 in
568571 let parents = List.map build_node parent_ids in
569572 let node = { base with parents } in
···766769 ~preview_before
767770 ~preview_after
768771 in
772772+ if not (Hashtbl.mem base_nodes elided_marker)
773773+ then Hashtbl.replace base_nodes elided_marker (make_elided_node ());
769774 let final_nodes = Hashtbl.create (List.length ordered_ids) in
770775 let rec build_node id =
771776 match Hashtbl.find_opt final_nodes id with
···775780 let base = Hashtbl.find base_nodes id in
776781 let parent_ids =
777782 Option.value (Hashtbl.find_opt parent_map id) ~default:[]
778778- |> List.filter (fun parent_id -> Hashtbl.mem base_nodes parent_id)
783783+ |> List.filter (fun parent_id ->
784784+ Hashtbl.mem base_nodes parent_id || parent_id = elided_marker)
779785 in
780786 let parents = List.map build_node parent_ids in
781787 let node = { base with parents } in