diff options
| author | Eugen Wissner <belka@caraus.de> | 2023-10-26 19:40:47 +0200 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2023-10-26 19:40:47 +0200 |
| commit | 6c0e2c2d24f380e5bdf6f1fce36ea7ee11afe6ea (patch) | |
| tree | 0f257be8b5da19f3e9c7845fd76fc2cd8a335154 /app/SlackBuilder/Download.hs | |
| parent | 58a1b8864cf1ba68a12e1ba7dc2e407903ce5992 (diff) | |
| download | slackbuilder-6c0e2c2d24f380e5bdf6f1fce36ea7ee11afe6ea.tar.gz | |
Fix hardcoded repository path in the scp call
Diffstat (limited to 'app/SlackBuilder/Download.hs')
| -rw-r--r-- | app/SlackBuilder/Download.hs | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/app/SlackBuilder/Download.hs b/app/SlackBuilder/Download.hs index d5bd7e8..011def7 100644 --- a/app/SlackBuilder/Download.hs +++ b/app/SlackBuilder/Download.hs @@ -121,9 +121,11 @@ remoteFileExists url = hostedSources url uploadCommand :: Text -> Text -> SlackBuilderT () uploadCommand localPath remotePath' = do remoteRoot <- SlackBuilderT $ asks remotePath - liftIO $ callProcess "scp" $ Text.unpack <$> - [ "slackbuilds/" <> localPath - , remoteRoot <> remotePath' + repository' <- SlackBuilderT $ asks repository + + liftIO $ callProcess "scp" + [ repository' </> Text.unpack localPath + , Text.unpack $ remoteRoot <> remotePath' ] cloneAndArchive :: Text -> Text -> FilePath -> Text -> SlackBuilderT () |