let relative_directory_exn s : t = if Filename.is_relative s then directory s else invalid_argument_exn ~where:"Path" "relative_directory_exn"