universal-ctags: Add version path segment

… to the download URL.

app/Main.hs

@@ -39,7 +39,8 @@ autoUpdatable =
             let ghArguments = GhArguments{ owner = "universal-ctags", name = "ctags", transform = Nothing}
                 latest' = latestGitHub ghArguments pure
                 templateTail =
-                    [ Package.StaticPlaceholder "/ctags-"
+                    [ Package.VersionPlaceholder
+                    , Package.StaticPlaceholder "/ctags-"
                     , Package.VersionPlaceholder
                     , Package.StaticPlaceholder ".tar.gz"
                     ]
@@ -56,8 +57,10 @@ autoUpdatable =
 up2Date :: SlackBuilderT ()
 up2Date = for_ autoUpdatable go
   where
-    go package@Package{ latest = Package.Updater getLatest _ } =
-        getLatest >>= mapM_ (updatePackage package)
+    go package = getAndLogLatest package >>= mapM_ (updatePackage package)
+    getAndLogLatest Package{ latest = Package.Updater getLatest _, name }
+        = liftIO (putStrLn $ Text.unpack name <> ": Retreiving the latest version.")
+        >> getLatest
 
 updatePackage :: Package -> Text -> SlackBuilderT ()
 updatePackage Package{..} version = do

app/SlackBuilder/Updater.hs

@@ -109,7 +109,7 @@ latestPackagist PackagistArguments{..} = do
 latestText :: TextArguments -> SlackBuilderT (Maybe Text)
 latestText (TextArguments textArguments) = do
     uri <- liftIO $ useHttpsURI <$> mkURI textArguments
-    packagistResponse <- traverse (runReq defaultHttpConfig) $ go . fst <$> uri
+    packagistResponse <- traverse (runReq defaultHttpConfig . go . fst) uri
 
     pure $ Text.strip . Text.Encoding.decodeASCII . responseBody
         <$> packagistResponse