Commit Functions.hs