Fix hardcoded repository path in the scp call
This commit is contained in:
parent
58a1b8864c
commit
6c0e2c2d24
10
app/Main.hs
10
app/Main.hs
@ -273,7 +273,15 @@ updatePackageIfRequired package@Package{..} version = do
|
||||
Text.IO.putStrLn
|
||||
$ name <> " is up to date (Version " <> version <> ")."
|
||||
setSGR [Reset]
|
||||
| otherwise -> updatePackage package parsedInfoFile version
|
||||
| otherwise -> do
|
||||
liftIO $ do
|
||||
setSGR [SetColor Foreground Dull Yellow]
|
||||
Text.IO.putStrLn
|
||||
$ "A new version of "
|
||||
<> name <> " " <> getField @"version" parsedInfoFile
|
||||
<> " is available (" <> version <> ")."
|
||||
setSGR [Reset]
|
||||
updatePackage package parsedInfoFile version
|
||||
Left errorBundle -> liftIO $ putStr $ errorBundlePretty errorBundle
|
||||
|
||||
updateDownload :: Package -> Package.Updater -> SlackBuilderT (URI, Digest MD5)
|
||||
|
@ -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 ()
|
||||
|
Loading…
Reference in New Issue
Block a user