1
2
3
4
5
6
7
8
9
10
open Odoc_search
let of_entry entry h =
let url = Html.url entry in
let html =
h
|> List.map (fun html -> Format.asprintf "%a" (Tyxml.Html.pp_elt ()) html)
|> String.concat ""
in
`Object [ ("url", `String url); ("html", `String html) ]