updateAvailableMission :: AObject -> StateT SpaceState IO ()
updateAvailableMission lc = do
  state <- State.get
  let malleg = colonyOwner lc
  case malleg of
    Nothing -> return ()
    Just alleg -> do
      case possibleMissionType (allegAttitude alleg state) of
        Nothing        -> return ()
        Just m         -> createMission m alleg lc
updateAvailableMission :: AObject -> StateT SpaceState IO ()
updateAvailableMission lc = do
  state <- State.get
  let malleg = colonyOwner lc
  case malleg of
    Nothing -> return ()
    Just alleg -> do
      case possibleMissionType (allegAttitude alleg state) of
        Nothing        -> return ()
        Just m         -> createMission m alleg lc
updateAvailableMission lc = do
  state <- State.get
  let malleg = colonyOwner lc
  case malleg of
    Nothing -> return ()
    Just alleg -> do
      case possibleMissionType (allegAttitude alleg state) of
        Nothing        -> return ()
        Just m         -> createMission m alleg lc