Update Cleanup.hs