diff options
| author | Eugen Wissner <belka@caraus.de> | 2023-08-21 13:38:20 +0200 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2023-08-21 13:38:20 +0200 |
| commit | 6983304b9d11e78ebf5fd21c835dd04c776102f5 (patch) | |
| tree | b0a89cafc0a71ee5c4d94b872fcd6f68d3adb29f /app/SlackBuilder/CommandLine.hs | |
| parent | 258604f22d2bc50480aa4eb57778ab96c97cf1c6 (diff) | |
| download | slackbuilder-6983304b9d11e78ebf5fd21c835dd04c776102f5.tar.gz | |
Download and determine the digest
Diffstat (limited to 'app/SlackBuilder/CommandLine.hs')
| -rw-r--r-- | app/SlackBuilder/CommandLine.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/app/SlackBuilder/CommandLine.hs b/app/SlackBuilder/CommandLine.hs index 8df1b97..f486b5a 100644 --- a/app/SlackBuilder/CommandLine.hs +++ b/app/SlackBuilder/CommandLine.hs @@ -27,6 +27,7 @@ data SlackBuilderCommand | CommitCommand Text Text | ExistsCommand Text | ArchiveCommand Text Text String Text + | DownloadCommand Text String deriving (Eq, Show) data PackagistArguments = PackagistArguments @@ -69,6 +70,7 @@ slackBuilderCommand = subparser <> command "commit" (info commitCommand mempty) <> command "exists" (info existsCommand mempty) <> command "archive" (info archiveCommand mempty) + <> command "download" (info downloadCommand mempty) where slackBuildCommand = SlackBuildCommand <$> argument str (metavar "PATH") @@ -82,3 +84,6 @@ slackBuilderCommand = subparser <*> argument str (metavar "NAME_VERSION") <*> argument str (metavar "TARBALL") <*> argument str (metavar "TAG_PREFIX") + downloadCommand = DownloadCommand + <$> argument str (metavar "URI") + <*> argument str (metavar "TARGET") |