setPosition :: E.Entity -> V.Vect -> E.Entity
setPosition p@E.Player {} newPos = p {E.playerInitialPos = newPos, E.playerPosition = newPos}
setPosition :: E.Entity -> V.Vect -> E.Entity
setPosition p@E.Player {} newPos = p {E.playerInitialPos = newPos, E.playerPosition = newPos}
setPosition p@E.Player {} newPos = p {E.playerInitialPos = newPos, E.playerPosition = newPos}