module App.Commands.Options.Parser ( optsVersion, optsPackageIds, text, ) where import App.Commands.Options.Types (VersionOptions (..)) import Control.Applicative (Alternative(..)) import Control.Monad (join) import Data.Set (Set) import Data.Text (Text) import Options.Applicative (Parser, ReadM) import qualified Amazonka.Data as AWS import qualified Data.Set as S import qualified Data.Text as T import qualified Data.Text as Text import qualified HaskellWorks.CabalCache.Types as Z import qualified Options.Applicative as OA optsVersion :: Parser VersionOptions optsVersion = pure VersionOptions text :: AWS.FromText a => ReadM a text = OA.eitherReader (AWS.fromText . Text.pack) optsPackageIds :: Parser (Set Z.PackageId) optsPackageIds = S.fromList . join <$> many ( OA.option packageIds ( OA.long "ignore-packages" <> OA.help "Packages to ignore" <> OA.metavar "PACKAGE_LIST" ) ) packageIds :: ReadM [Text] packageIds = OA.eitherReader \case "" -> pure [] s -> pure $ T.split (== ',') (T.pack s)