setCurrentPosition e@E.Enemy {E.enemyPosition = Left _} newPos =
   e {E.enemyPosition = Left newPos}
setCurrentPosition e@E.Enemy {E.enemyPosition = Left _} newPos =
   e {E.enemyPosition = Left newPos}
setCurrentPosition e@E.Enemy {E.enemyPosition = Left _} newPos =
   e {E.enemyPosition = Left newPos}