diff options
| author | Eugen Wissner <belka@caraus.de> | 2024-05-11 19:01:41 +0200 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2024-05-11 19:01:41 +0200 |
| commit | f8ef93fde7dd5e9da499514c4ba6b782e5ec35b2 (patch) | |
| tree | eeabd8170479e53f445c09abd5b3ff7d13cf108f /src | |
| parent | 6ba319c3b6f4d9fdffca677288563360c3126e73 (diff) | |
| download | slackbuilder-f8ef93fde7dd5e9da499514c4ba6b782e5ec35b2.tar.gz | |
Support a custom upload command
Diffstat (limited to 'src')
| -rw-r--r-- | src/SlackBuilder/Update.hs | 6 |
1 files changed, 3 insertions, 3 deletions
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 |