From f8ef93fde7dd5e9da499514c4ba6b782e5ec35b2 Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Sat, 11 May 2024 19:01:41 +0200
Subject: Support a custom upload command

---
 src/SlackBuilder/Update.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src')

diff --git a/src/SlackBuilder/Update.hs b/src/SlackBuilder/Update.hs
index 008b63d..a23ee48 100644
--- a/src/SlackBuilder/Update.hs
+++ b/src/SlackBuilder/Update.hs
@@ -172,7 +172,7 @@ reuploadWithTemplate downloadTemplate commands packagePath version = do
     download' <- handleReupload relativeTarball' downloadFileName
     pure $ Package.Download download' checksum
   where
-    name' = Text.pack $ takeBaseName $ Text.unpack packagePath
+    category' = Text.pack $ takeBaseName $ Text.unpack packagePath
     prepareSource tarballPath =
         liftIO (traverse (defaultCreateProcess tarballPath) commands)
             >> liftIO (tarCompress tarballPath)
@@ -190,8 +190,8 @@ reuploadWithTemplate downloadTemplate commands packagePath version = do
         downloadURL' <- SlackBuilderT $ asks downloadURL
 
         liftIO $ putStrLn $ "Upload the source tarball " <> relativeTarball
-        uploadCommand relativeTarball ("/" <> name')
-        liftIO $ mkURI $ downloadURL' <> "/" <> name' <> "/" <> Text.pack downloadFileName
+        uploadSource relativeTarball category'
+        liftIO $ mkURI $ downloadURL' <> "/" <> category' <> "/" <> Text.pack downloadFileName
     defaultCreateProcess cwd' cmdSpec
         = flip withCreateProcess (const . const . const waitForProcess)
         $ CreateProcess
-- 
cgit v1.2.3