writePortageSetConfigs :: [WorldSet] -> [PortageSetConfig] -> ReaderT Options IO ()
writePortageSetConfigs ws cfgs =
  let (process, skipped) = partition (\psc -> _portageSetName psc `elem` ws) cfgs
   in do unless (null skipped) $ lift $ Text.putStrLn $ "Skipping configuration for sets not listed in world_sets files: " <> (Text.unwords $ map _portageSetName skipped)
         mapM_ (uncurry $ writePortageSetConfig) $ zip [1..] process
writePortageSetConfigs :: [WorldSet] -> [PortageSetConfig] -> ReaderT Options IO ()
writePortageSetConfigs ws cfgs =
  let (process, skipped) = partition (\psc -> _portageSetName psc `elem` ws) cfgs
   in do unless (null skipped) $ lift $ Text.putStrLn $ "Skipping configuration for sets not listed in world_sets files: " <> (Text.unwords $ map _portageSetName skipped)
         mapM_ (uncurry $ writePortageSetConfig) $ zip [1..] process
writePortageSetConfigs ws cfgs =
  let (process, skipped) = partition (\psc -> _portageSetName psc `elem` ws) cfgs
   in do unless (null skipped) $ lift $ Text.putStrLn $ "Skipping configuration for sets not listed in world_sets files: " <> (Text.unwords $ map _portageSetName skipped)
         mapM_ (uncurry $ writePortageSetConfig) $ zip [1..] process