Fix warnings in sherlodoc

ocaml · Dec 13, 2024 · 8b814e8 · 8b814e8
1 parent 14bff51
commit 8b814e8
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 2 deletions.
diff --git a/sherlodoc/db/entry.ml b/sherlodoc/db/entry.ml
@@ -56,7 +56,7 @@ type t =
   ; pkg : Package.t
   }
 
-let pp fmt { name; rhs; url; kind; cost; doc_html; pkg } =
+let pp fmt { name; rhs; url; kind = _; cost; doc_html; pkg = _ } =
   Format.fprintf
     fmt
     "{ name = %s ; rhs = %a ; url = %s ; kind = . ; cost = %d ; doc_html = %s ; pkg = . }\n"

diff --git a/sherlodoc/index/index.ml b/sherlodoc/index/index.ml
@@ -22,7 +22,6 @@ let index_file register filename =
   match Fpath.of_string filename with
   | Error (`Msg msg) -> Format.printf "FILE ERROR %s: %s@." filename msg
   | Ok file ->
-    let open Odoc_model in
     (match handle_file register file with
      | Ok result -> result
      | Error (`Msg msg) ->