diff --git a/lib/language_server/Workspace_symbols.ml b/lib/language_server/Workspace_symbols.ml index 3adf146..1ebe015 100644 --- a/lib/language_server/Workspace_symbols.ml +++ b/lib/language_server/Workspace_symbols.ml @@ -100,13 +100,13 @@ let compute (params : L.WorkspaceSymbolParams.t) : _ = let render = Plain_text_client.string_of_content ~forest in Option.some @@ - let@ uri, item = + let@ uri, _item = List.concat_map @~ List.of_seq @@ Seq.filter (fun (uri, _) -> not (Util.is_docs_uri uri)) @@ State.to_seq forest in let@ {frontmatter; _} = - List.concat_map @~ Option.to_list (Tree.article item) + List.concat_map @~ Option.to_list (State.get_article ~forest uri) in let title = render @@ State.get_expanded_title frontmatter forest in let@ () =