diff options
Diffstat (limited to 'app/Main.hs')
| -rw-r--r-- | app/Main.hs | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/app/Main.hs b/app/Main.hs index eea4951..654dcf7 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -13,6 +13,7 @@ import qualified Toml import qualified Data.Text as Text import Control.Monad.Trans.Reader (ReaderT(..)) import SlackBuilder.Download +import Text.URI (mkURI) main :: IO () main = do @@ -38,8 +39,12 @@ 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 + DownloadCommand url target + | Just uri <- mkURI url -> fmap (Text.pack . show) + <$> download uri target + | otherwise -> pure Nothing + CloneCommand repo tarball tagPrefix -> fmap (Text.pack . show) + <$> clone repo tarball tagPrefix chooseTransformFunction (Just "php") = phpTransform chooseTransformFunction (Just "rdiff-backup") = Text.stripPrefix "v" chooseTransformFunction _ = stripPrefix "v" |