From fd649b66f57123aad95861e636299a2d0a5ca6f7 Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Thu, 17 Aug 2023 22:07:09 +0200
Subject: Implement remote file check as Haskell command

---
 app/SlackBuilder/CommandLine.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'app/SlackBuilder/CommandLine.hs')

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")
-- 
cgit v1.2.3