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