let string_of_path (doc_settings : t_doc_settings) (path : t_path) : string = match string_of_path_opt doc_settings path path with |None -> "Document" |Some s -> s