dune site crash test

dune

(generate_sites_module
 (module sites)
 (sites test-dune-site))

(executable
  (name test_dune_site)
  (public_name test_dune_site)
  (libraries dune-site)
  (modules sites test_dune_site))

dune-project

(lang dune 2.8)
(using menhir 2.1)
(using dune_site 0.1)
(name test-dune-site)

(generate_opam_files true)

(package
  (name test-dune-site)
  (sites (share libs)))

test_dune_site.ml

let () =
  List.iter (fun path -> Printf.printf "Libs site: %s\n%!" path) Sites.Sites.libs