setPosition p@E.Platform {E.platformPosition = Right ani} newPos =
   p {E.platformPosition = Right $ A.setBasePosition ani newPos}
setPosition p@E.Platform {E.platformPosition = Right ani} newPos =
   p {E.platformPosition = Right $ A.setBasePosition ani newPos}
setPosition p@E.Platform {E.platformPosition = Right ani} newPos =
   p {E.platformPosition = Right $ A.setBasePosition ani newPos}