diff options
Diffstat (limited to 'app/Main.hs')
| -rw-r--r-- | app/Main.hs | 4 |
1 files changed, 3 insertions, 1 deletions
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 |