gotoGovernor :: AObject -> StateT SpaceState IO ()
gotoGovernor lc = do
  state <- State.get
  let alleg = getAllegiance lc
  case missionFor alleg (plmissions state) of
    Nothing          -> 
      case availmission state of
        Nothing  -> noMissionsScreen
        Just mis -> offerMission mis lc
    Just currmission -> missionDisplay (gamefont state) alleg currmission
gotoGovernor :: AObject -> StateT SpaceState IO ()
gotoGovernor lc = do
  state <- State.get
  let alleg = getAllegiance lc
  case missionFor alleg (plmissions state) of
    Nothing          -> 
      case availmission state of
        Nothing  -> noMissionsScreen
        Just mis -> offerMission mis lc
    Just currmission -> missionDisplay (gamefont state) alleg currmission
gotoGovernor lc = do
  state <- State.get
  let alleg = getAllegiance lc
  case missionFor alleg (plmissions state) of
    Nothing          -> 
      case availmission state of
        Nothing  -> noMissionsScreen
        Just mis -> offerMission mis lc
    Just currmission -> missionDisplay (gamefont state) alleg currmission