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