val do_commit : Commit.commit_data -> Commit.commit_data Lwt.t