summaryrefslogtreecommitdiff
path: root/lib/SlackBuilder/LatestVersionCheck.hs
diff options
context:
space:
mode:
Diffstat (limited to 'lib/SlackBuilder/LatestVersionCheck.hs')
-rw-r--r--lib/SlackBuilder/LatestVersionCheck.hs5
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/SlackBuilder/LatestVersionCheck.hs b/lib/SlackBuilder/LatestVersionCheck.hs
index 523451e..874cd14 100644
--- a/lib/SlackBuilder/LatestVersionCheck.hs
+++ b/lib/SlackBuilder/LatestVersionCheck.hs
@@ -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