diff options
| author | Eugen Wissner <belka@caraus.de> | 2023-08-25 10:30:24 +0200 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2023-08-25 10:30:24 +0200 |
| commit | 2126488066713719e26a1049adb080e68ec124f1 (patch) | |
| tree | c3bdae9dd7a71f4e06666bf125e834f120453794 /app/SlackBuilder/CommandLine.hs | |
| parent | 6983304b9d11e78ebf5fd21c835dd04c776102f5 (diff) | |
| download | slackbuilder-2126488066713719e26a1049adb080e68ec124f1.tar.gz | |
Implement clone command in the binary
Diffstat (limited to 'app/SlackBuilder/CommandLine.hs')
| -rw-r--r-- | app/SlackBuilder/CommandLine.hs | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/app/SlackBuilder/CommandLine.hs b/app/SlackBuilder/CommandLine.hs index f486b5a..1b0d7ed 100644 --- a/app/SlackBuilder/CommandLine.hs +++ b/app/SlackBuilder/CommandLine.hs @@ -28,6 +28,7 @@ data SlackBuilderCommand | ExistsCommand Text | ArchiveCommand Text Text String Text | DownloadCommand Text String + | CloneCommand Text Text Text deriving (Eq, Show) data PackagistArguments = PackagistArguments @@ -71,6 +72,7 @@ slackBuilderCommand = subparser <> command "exists" (info existsCommand mempty) <> command "archive" (info archiveCommand mempty) <> command "download" (info downloadCommand mempty) + <> command "clone" (info cloneCommand mempty) where slackBuildCommand = SlackBuildCommand <$> argument str (metavar "PATH") @@ -87,3 +89,7 @@ slackBuilderCommand = subparser downloadCommand = DownloadCommand <$> argument str (metavar "URI") <*> argument str (metavar "TARGET") + cloneCommand = CloneCommand + <$> argument str (metavar "REPO") + <*> argument str (metavar "TARBALL") + <*> argument str (metavar "TAG_PREFIX") |