module Iris.Cli.Browse (
browseP,
browseFileP,
) where
import qualified Options.Applicative as Opt
browseP
:: String
-> Opt.Parser Bool
browseP :: FilePath -> Parser Bool
browseP FilePath
description =
Mod FlagFields Bool -> Parser Bool
Opt.switch forall a b. (a -> b) -> a -> b
$
forall a. Monoid a => [a] -> a
mconcat
[ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
Opt.long FilePath
"browse"
, forall (f :: * -> *) a. FilePath -> Mod f a
Opt.help FilePath
description
]
browseFileP
:: String
-> Opt.Parser FilePath
browseFileP :: FilePath -> Parser FilePath
browseFileP FilePath
description =
forall a. ReadM a -> Mod OptionFields a -> Parser a
Opt.option forall s. IsString s => ReadM s
Opt.str forall a b. (a -> b) -> a -> b
$
forall a. Monoid a => [a] -> a
mconcat
[ forall (f :: * -> *) a. HasName f => FilePath -> Mod f a
Opt.long FilePath
"browse"
, forall (f :: * -> *) a. HasMetavar f => FilePath -> Mod f a
Opt.metavar FilePath
"FILE_PATH"
, forall (f :: * -> *) a. FilePath -> Mod f a
Opt.help FilePath
description
]