diff options
| author | Eugen Wissner <belka@caraus.de> | 2023-10-13 19:34:02 +0200 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2023-10-13 19:34:02 +0200 |
| commit | 4105ffa91f85d66e631383211b5d074b04fc0d3c (patch) | |
| tree | aad5183d2ceda251e7cf018596d1cd2aa05a99bf /app/SlackBuilder/CommandLine.hs | |
| parent | 5e161c3dade570b7a1687c01647b37cfe44f1bd5 (diff) | |
| download | slackbuilder-4105ffa91f85d66e631383211b5d074b04fc0d3c.tar.gz | |
rdiff-backup: Migrated
Diffstat (limited to 'app/SlackBuilder/CommandLine.hs')
| -rw-r--r-- | app/SlackBuilder/CommandLine.hs | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/app/SlackBuilder/CommandLine.hs b/app/SlackBuilder/CommandLine.hs index 8624cb8..1375b6e 100644 --- a/app/SlackBuilder/CommandLine.hs +++ b/app/SlackBuilder/CommandLine.hs @@ -16,12 +16,11 @@ import Options.Applicative , info , fullDesc , subparser - , command, optional + , command, ) data SlackBuilderCommand = TextCommand TextArguments - | GhCommand GhArguments | SlackBuildCommand Text Text | CommitCommand Text Text | ExistsCommand Text @@ -49,19 +48,12 @@ newtype TextArguments = TextArguments Text textArguments :: Parser TextArguments textArguments = TextArguments <$> argument str (metavar "URL") -ghArguments :: Parser GhArguments -ghArguments = GhArguments - <$> argument str (metavar "OWNER") - <*> argument str (metavar "NAME") - <*> optional (argument str (metavar "TRANSFORM")) - slackBuilderParser :: ParserInfo SlackBuilderCommand slackBuilderParser = info slackBuilderCommand fullDesc slackBuilderCommand :: Parser SlackBuilderCommand slackBuilderCommand = subparser $ command "text" (info (TextCommand <$> textArguments) mempty) - <> command "github" (info (GhCommand <$> ghArguments) mempty) <> command "slackbuild" (info slackBuildCommand mempty) <> command "commit" (info commitCommand mempty) <> command "exists" (info existsCommand mempty) |