From 3a6d17952b247682f1cb794ef27b26c9b007f00d Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Fri, 20 Oct 2023 15:53:48 +0200 Subject: Allow looking on the text page for the latest version --- app/SlackBuilder/Updater.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'app/SlackBuilder/Updater.hs') diff --git a/app/SlackBuilder/Updater.hs b/app/SlackBuilder/Updater.hs index 864e466..1ebf7fe 100644 --- a/app/SlackBuilder/Updater.hs +++ b/app/SlackBuilder/Updater.hs @@ -107,11 +107,11 @@ latestPackagist PackagistArguments{..} = do >>= fmap (version . fst) . Vector.uncons latestText :: TextArguments -> SlackBuilderT (Maybe Text) -latestText (TextArguments textArguments) = do - uri <- liftIO $ useHttpsURI <$> mkURI textArguments +latestText TextArguments{..} = do + uri <- liftIO $ useHttpsURI <$> mkURI textURL packagistResponse <- traverse (runReq defaultHttpConfig . go . fst) uri - pure $ Text.strip . Text.Encoding.decodeASCII . responseBody + pure $ versionPicker . Text.Encoding.decodeUtf8 . responseBody <$> packagistResponse where go uri = req GET uri NoReqBody bsResponse mempty -- cgit v1.2.3