let to_string_quoted: t -> string = fun x -> Filename.quote x.path