Update Entity.hs