let log_structure structure =
let all_paths = all_structure_paths structure |> List.map ~f:Path.to_string in
let open Log in
match all_paths with
| [] -> s "EMPTY"
| one :: [] -> s "Single path: " % quote one
| more -> i (List.length more) % sp % s "paths"