Add package tables to the configuration file
This commit is contained in:
@@ -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
|
||||
|
Reference in New Issue
Block a user