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