Remove links from sidebar content representation

jonludlam · Nov 25, 2024 · 36c3989 · 36c3989
1 parent 824bd55
commit 36c3989
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/odoc/sidebar.ml b/src/odoc/sidebar.ml
@@ -22,7 +22,10 @@ let toc_to_json ({ url; content = inline; _ } : Odoc_document.Sidebar.entry) :
   in
   let inline =
     let inline =
-      Odoc_html.Generator.inline ~config ~xref_base_uri:"" [ inline ]
+      let unwrapped = match inline.desc with
+      | Link x -> List.hd x.content
+      | _x -> inline in
+      Odoc_html.Generator.inline ~config ~xref_base_uri:"" [ unwrapped ]
     in
     let inline =
       String.concat ""