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/Main.hs | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) (limited to 'app/Main.hs') 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) -- cgit v1.2.3