Compatibilty with odoc 89175b19aeae7e181fd46ce6f74b643367713cfb

art-w · Oct 16, 2023 · d665c8b · d665c8b
1 parent a58f0d6
commit d665c8b
Show file tree

Hide file tree

Showing 4 changed files with 6 additions and 6 deletions.
diff --git a/bin/JSherlodoc/main.ml b/bin/JSherlodoc/main.ml
@@ -26,8 +26,8 @@ let search message =
   in
   Jv.(apply (get global "postMessage"))
     [| Jv.of_list
-         (fun Db.Elt.{ json_output; _ } ->
-           json_output |> Jstr.of_string |> Brr.Json.decode |> Result.get_ok)
+         (fun Db.Elt.{ json_display; _ } ->
+          json_display |> Jstr.of_string |> Brr.Json.decode |> Result.get_ok)
          results
     |]
 

diff --git a/lib/db/elt.ml b/lib/db/elt.ml
@@ -58,7 +58,7 @@ module T = struct
     ; kind : kind
     ; has_doc: bool
     ; pkg : package option
-    ; json_output : string
+    ; json_display : string
     }
 
   let compare_pkg { name; version = _ } (b : package) =

diff --git a/lib/index_lib/load_doc.ml b/lib/index_lib/load_doc.ml
@@ -268,9 +268,9 @@ module Make (Storage : Db.Storage.S) = struct
       | Doc _ -> Pretty.prefixname id
       | _ -> full_name
     in
-    let json_output = Json_output.string_of_entry entry in
+    let json_display = entry |> Json_display.of_entry |> Odoc_html.Json.to_string in
     let has_doc = doc.txt <> "" in
-    let elt = Elt.{ name; kind = kind'; pkg = None ; json_output ; has_doc} in
+    let elt = Elt.{ name; kind = kind'; pkg = None ; json_display ; has_doc} in
 
     register_doc elt doc.txt ;
     (match extra with

diff --git a/test/cram/odoc.t/run.t b/test/cram/odoc.t/run.t
@@ -16,7 +16,7 @@ $ cp  /home/emile/.opam/sherlodoc/var/cache/odig/odoc/dream/**.odocl .
   page.mld
   $ sherlodoc_index --format=js --db=db.js *.odocl     
   $ du -sh db.js
-  20K	db.js
+  16K	db.js
   $ odoc html-generate --with-search --output-dir html main.odocl
   $ odoc html-generate --with-search --output-dir html page-page.odocl
   $ odoc support-files -o html