diff options
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 () |