handleArrival' :: (String, Mission) -> AObject -> StateT SpaceState IO ()
handleArrival' (alleg, MessengerMission tgt) lc = do
  state <- State.get
  let plname = playername state
      planetname = aobjName lc
  checkArrived tgt planetname alleg pointsForMessengerMission
    ["\"Thank you, " ++ plname ++ ", for serving our great",
     "country of " ++ alleg ++ " by delivering this important",
     "message to us.\"",
     "",
     "Mission accomplished!",
     "",
     "",
     "Press Enter to continue"]
handleArrival' :: (String, Mission) -> AObject -> StateT SpaceState IO ()
handleArrival' (alleg, MessengerMission tgt) lc = do
  state <- State.get
  let plname = playername state
      planetname = aobjName lc
  checkArrived tgt planetname alleg pointsForMessengerMission
    ["\"Thank you, " ++ plname ++ ", for serving our great",
     "country of " ++ alleg ++ " by delivering this important",
     "message to us.\"",
     "",
     "Mission accomplished!",
     "",
     "",
     "Press Enter to continue"]
handleArrival' (alleg, MessengerMission tgt) lc = do
  state <- State.get
  let plname = playername state
      planetname = aobjName lc
  checkArrived tgt planetname alleg pointsForMessengerMission
    ["\"Thank you, " ++ plname ++ ", for serving our great",
     "country of " ++ alleg ++ " by delivering this important",
     "message to us.\"",
     "",
     "Mission accomplished!",
     "",
     "",
     "Press Enter to continue"]