diff options
Diffstat (limited to 'app/SlackBuilder/CommandLine.hs')
| -rw-r--r-- | app/SlackBuilder/CommandLine.hs | 11 |
1 files changed, 2 insertions, 9 deletions
diff --git a/app/SlackBuilder/CommandLine.hs b/app/SlackBuilder/CommandLine.hs index 48881e2..8624cb8 100644 --- a/app/SlackBuilder/CommandLine.hs +++ b/app/SlackBuilder/CommandLine.hs @@ -20,8 +20,7 @@ import Options.Applicative ) data SlackBuilderCommand - = PackagistCommand PackagistArguments - | TextCommand TextArguments + = TextCommand TextArguments | GhCommand GhArguments | SlackBuildCommand Text Text | CommitCommand Text Text @@ -47,11 +46,6 @@ data GhArguments = GhArguments newtype TextArguments = TextArguments Text deriving (Eq, Show) -packagistArguments :: Parser PackagistArguments -packagistArguments = PackagistArguments - <$> argument str (metavar "VENDOR") - <*> argument str (metavar"NAME") - textArguments :: Parser TextArguments textArguments = TextArguments <$> argument str (metavar "URL") @@ -66,8 +60,7 @@ slackBuilderParser = info slackBuilderCommand fullDesc slackBuilderCommand :: Parser SlackBuilderCommand slackBuilderCommand = subparser - $ command "packagist" (info (PackagistCommand <$> packagistArguments) mempty) - <> command "text" (info (TextCommand <$> textArguments) mempty) + $ command "text" (info (TextCommand <$> textArguments) mempty) <> command "github" (info (GhCommand <$> ghArguments) mempty) <> command "slackbuild" (info slackBuildCommand mempty) <> command "commit" (info commitCommand mempty) |