handleArrival' (alleg, SecretMessageMission tgt) lc = do
  state <- State.get
  let plname = playername state
      planetname = aobjName lc
  checkArrived tgt planetname alleg pointsForSecretMessage
    ["\"Thank you, " ++ plname ++ ", for serving our great",
     "country of " ++ alleg ++ " by delivering this important",
     "message to us here on " ++ planetname ++ ".\"",
     "",
     "Mission accomplished!",
     "",
     "",
     "Press Enter to continue"]
handleArrival' (alleg, SecretMessageMission tgt) lc = do
  state <- State.get
  let plname = playername state
      planetname = aobjName lc
  checkArrived tgt planetname alleg pointsForSecretMessage
    ["\"Thank you, " ++ plname ++ ", for serving our great",
     "country of " ++ alleg ++ " by delivering this important",
     "message to us here on " ++ planetname ++ ".\"",
     "",
     "Mission accomplished!",
     "",
     "",
     "Press Enter to continue"]
handleArrival' (alleg, SecretMessageMission tgt) lc = do
  state <- State.get
  let plname = playername state
      planetname = aobjName lc
  checkArrived tgt planetname alleg pointsForSecretMessage
    ["\"Thank you, " ++ plname ++ ", for serving our great",
     "country of " ++ alleg ++ " by delivering this important",
     "message to us here on " ++ planetname ++ ".\"",
     "",
     "Mission accomplished!",
     "",
     "",
     "Press Enter to continue"]