diff options
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 11 |
1 files changed, 2 insertions, 9 deletions
diff --git a/src/Main.hs b/src/Main.hs index c4967ba..18cbbbf 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -391,11 +391,7 @@ downloadWithTemplate :: Package.DownloadTemplate -> Text -> Text -> SlackBuilder downloadWithTemplate downloadTemplate packagePath version = do repository' <- SlackBuilderT $ asks repository uri' <- liftIO $ Package.renderDownloadWithVersion downloadTemplate version - let downloadFileName = URI.unRText - $ NonEmpty.last $ snd $ fromJust $ URI.uriPath uri' - relativeTarball = packagePath <> "/" <> downloadFileName - tarball = repository' </> Text.unpack relativeTarball - checksum <- download uri' tarball + checksum <- download uri' $ repository' </> Text.unpack packagePath pure $ Package.Download uri' $ snd checksum reuploadWithTemplate :: Package.DownloadTemplate -> [CmdSpec] -> Text -> Text -> SlackBuilderT Package.Download @@ -409,10 +405,7 @@ reuploadWithTemplate downloadTemplate commands packagePath version = do (checksum, relativeTarball') <- case commands of [] -> do - let relativeTarball = packagePathRelativeToCurrent - </> downloadFileName - (downloadedFileName, checksum) <- download uri' - $ repository' </> relativeTarball + (downloadedFileName, checksum) <- download uri' packagePathRelativeToCurrent pure (checksum, packagePathRelativeToCurrent </> downloadedFileName) _ -> do changedArchiveRootName <- extractRemote uri' packagePathRelativeToCurrent |