handleArrival :: AObject -> StateT SpaceState IO ()
handleArrival lc = do
  state <- State.get
  mapM_ (flip handleArrival' lc) (missions (plmissions state))
handleArrival :: AObject -> StateT SpaceState IO ()
handleArrival lc = do
  state <- State.get
  mapM_ (flip handleArrival' lc) (missions (plmissions state))
handleArrival lc = do
  state <- State.get
  mapM_ (flip handleArrival' lc) (missions (plmissions state))