Fix hardcoded repository path in the scp call

2 files changed, 14 insertions, 4 deletions

diff --git a/app/Main.hs b/app/Main.hs
index 9d3da09..5954918 100644
--- a/app/Main.hs
+++ b/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)
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 ()