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