Source file `sidebar.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
open Odoc_utils
open ResultMonad

let compile_to_json ~output sidebar =
  let json = Odoc_html.Sidebar.to_json sidebar in
  let text = Json.to_string json in
  Fs.Directory.mkdir_p (Fs.File.dirname output);
  Io_utils.with_open_out_bin (Fs.File.to_string output) @@ fun oc ->
  Printf.fprintf oc "%s" text

let generate ~marshall ~output ~warnings_options:_ ~index =
  Odoc_file.load_index index >>= fun index ->
  let sidebar = Odoc_document.Sidebar.of_index index in
  match marshall with
  | `JSON -> Ok (compile_to_json ~output sidebar)
  | `Marshall -> Ok (Odoc_file.save_sidebar output sidebar)