let log {host; root; structure} =
    Log.(braces (
        parens (Ketrew_host.log host) % sp
        % parens (s "Root: " % s (Path.to_string root)) % sp
        % parens (s "Tree: " % log_structure structure)
      ))