Update Constants.hs