summaryrefslogtreecommitdiff
path: root/app/Main.hs
diff options
context:
space:
mode:
authorEugen Wissner <belka@caraus.de>2023-10-26 19:40:47 +0200
committerEugen Wissner <belka@caraus.de>2023-10-26 19:40:47 +0200
commit6c0e2c2d24f380e5bdf6f1fce36ea7ee11afe6ea (patch)
tree0f257be8b5da19f3e9c7845fd76fc2cd8a335154 /app/Main.hs
parent58a1b8864cf1ba68a12e1ba7dc2e407903ce5992 (diff)
downloadslackbuilder-6c0e2c2d24f380e5bdf6f1fce36ea7ee11afe6ea.tar.gz
Fix hardcoded repository path in the scp call
Diffstat (limited to 'app/Main.hs')
-rw-r--r--app/Main.hs10
1 files changed, 9 insertions, 1 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)