setCurrentPosition s@E.Star   {} newPos = s {E.starPosition   = newPos}
setCurrentPosition s@E.Star   {} newPos = s {E.starPosition   = newPos}
setCurrentPosition s@E.Star   {} newPos = s {E.starPosition   = newPos}