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/Main.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'app/Main.hs')

diff --git a/app/Main.hs b/app/Main.hs
index a90d19a..8d955a1 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -34,6 +34,8 @@ main = do
             updateSlackBuildVersion packagePath version >> pure Nothing
         CommitCommand packagePath version ->
             commit packagePath version >> pure Nothing
+        ExistsCommand urlPath -> pure . Text.pack . show
+            <$> remoteFileExists urlPath
     chooseTransformFunction (Just "php") = phpTransform
     chooseTransformFunction (Just "rdiff-backup") = Text.stripPrefix "v"
     chooseTransformFunction _ = stripPrefix "v"
-- 
cgit v1.2.3