diff options
| author | Eugen Wissner <belka@caraus.de> | 2023-08-17 22:07:09 +0200 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2023-08-17 22:07:09 +0200 |
| commit | fd649b66f57123aad95861e636299a2d0a5ca6f7 (patch) | |
| tree | fcdfa433ed9d80d0b00ddccbdc56955ca4b7cd1a /app/SlackBuilder/CommandLine.hs | |
| parent | 6b15ccd0f53c7ffd57820fb15664ecadee74392a (diff) | |
| download | slackbuilder-fd649b66f57123aad95861e636299a2d0a5ca6f7.tar.gz | |
Implement remote file check as Haskell command
Diffstat (limited to 'app/SlackBuilder/CommandLine.hs')
| -rw-r--r-- | app/SlackBuilder/CommandLine.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/app/SlackBuilder/CommandLine.hs b/app/SlackBuilder/CommandLine.hs index 6b915f2..4218e6b 100644 --- a/app/SlackBuilder/CommandLine.hs +++ b/app/SlackBuilder/CommandLine.hs @@ -25,6 +25,7 @@ data SlackBuilderCommand | GhCommand GhArguments | SlackBuildCommand Text Text | CommitCommand Text Text + | ExistsCommand Text deriving (Eq, Show) data PackagistArguments = PackagistArguments @@ -65,6 +66,7 @@ slackBuilderCommand = subparser <> command "github" (info (GhCommand <$> ghArguments) mempty) <> command "slackbuild" (info slackBuildCommand mempty) <> command "commit" (info commitCommand mempty) + <> command "exists" (info existsCommand mempty) where slackBuildCommand = SlackBuildCommand <$> argument str (metavar "PATH") @@ -72,3 +74,4 @@ slackBuilderCommand = subparser commitCommand = CommitCommand <$> argument str (metavar "PATH") <*> argument str (metavar "VERSION") + existsCommand = ExistsCommand <$> argument str (metavar "PATH") |