Add package tables to the configuration file
All checks were successful
Build / audit (push) Successful in 7s
Build / test (push) Successful in 15m14s

This commit is contained in:
2024-09-20 22:34:17 +02:00
parent ae63ff0cc0
commit 2a78256933
3 changed files with 19 additions and 3 deletions

View File

@@ -38,7 +38,7 @@ import Network.HTTP.Req
, useHttpsURI
, bsResponse
, POST(..)
, ReqBodyJson(..)
, ReqBodyJson(..), JsonResponse
)
import Text.URI (mkURI)
import SlackBuilder.Trans
@@ -181,7 +181,8 @@ latestPackagist PackageOwner{..} = do
/: owner
/: name <> ".json"
in req GET uri NoReqBody jsonResponse mempty
let packagistPackages = packages $ responseBody packagistResponse
let packagistPackages = getField @"packages"
$ responseBody (packagistResponse :: JsonResponse PackagistResponse)
fullName = Text.intercalate "/" [owner, name]
pure $ HashMap.lookup fullName packagistPackages