setCurrentPosition e@E.Enemy {E.enemyPosition = Right ani} newPos =
   e {E.enemyPosition = Right ani {A.currentPosition = newPos}}
setCurrentPosition e@E.Enemy {E.enemyPosition = Right ani} newPos =
   e {E.enemyPosition = Right ani {A.currentPosition = newPos}}
setCurrentPosition e@E.Enemy {E.enemyPosition = Right ani} newPos =
   e {E.enemyPosition = Right ani {A.currentPosition = newPos}}