let commit_files ?(comment="") files = let parts = partition_files_by_dir files in let f (d,l) = commit_files_in_dir ~comment d l in List.iter f parts