setPosition e@E.Enemy {E.enemyPosition = Right ani} newPos =
   e {E.enemyPosition = Right $ A.setBasePosition ani newPos}
setPosition e@E.Enemy {E.enemyPosition = Right ani} newPos =
   e {E.enemyPosition = Right $ A.setBasePosition ani newPos}
setPosition e@E.Enemy {E.enemyPosition = Right ani} newPos =
   e {E.enemyPosition = Right $ A.setBasePosition ani newPos}