diff options
| author | Eugen Wissner <belka@caraus.de> | 2023-10-03 18:53:41 +0200 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2023-10-03 18:53:41 +0200 |
| commit | d5df676df7a9bea716fdbdaff455fa1ab57073ac (patch) | |
| tree | a2109b89652e9ae64829d1e3f0d67ad01e921cb5 /app/SlackBuilder/CommandLine.hs | |
| parent | f4b7883cf2a6739ca9cd7b8fe94cfe11df3918bc (diff) | |
| download | slackbuilder-d5df676df7a9bea716fdbdaff455fa1ab57073ac.tar.gz | |
Add module with an info file parser
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) |