From 6983304b9d11e78ebf5fd21c835dd04c776102f5 Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Mon, 21 Aug 2023 13:38:20 +0200
Subject: Download and determine the digest

---
 app/Main.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'app/Main.hs')

diff --git a/app/Main.hs b/app/Main.hs
index 2e92865..eea4951 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -38,6 +38,8 @@ main = do
             <$> remoteFileExists urlPath
         ArchiveCommand repo nameVersion tarball tagPrefix ->
             cloneAndArchive repo nameVersion tarball tagPrefix >> pure Nothing
+        DownloadCommand url target -> fmap (Text.pack . show)
+            <$> download url target
     chooseTransformFunction (Just "php") = phpTransform
     chooseTransformFunction (Just "rdiff-backup") = Text.stripPrefix "v"
     chooseTransformFunction _ = stripPrefix "v"
@@ -45,6 +47,6 @@ main = do
         $ fromMaybe string
         $ Text.stripPrefix prefix string
     phpTransform version
-        | (majorPrefix, patchVersion) <- Text.breakOnEnd "." version
+        | (majorPrefix, _patchVersion) <- Text.breakOnEnd "." version
         , majorPrefix == "php-8.2." = Just $ Text.drop (Text.length "php-") version
         | otherwise = Nothing
-- 
cgit v1.2.3