From 6c0e2c2d24f380e5bdf6f1fce36ea7ee11afe6ea Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Thu, 26 Oct 2023 19:40:47 +0200 Subject: Fix hardcoded repository path in the scp call --- app/SlackBuilder/Download.hs | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'app/SlackBuilder') 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 () -- cgit v1.2.3