api: add getAddressInfoExtended for /addresses/:address/extended endp…

…oint
blockfrost · Dec 18, 2023 · 4c5a26c · 4c5a26c
1 parent 1233e39
commit 4c5a26c
Show file tree

Hide file tree

Showing 3 changed files with 10 additions and 0 deletions.
diff --git a/blockfrost-client/CHANGELOG.md b/blockfrost-client/CHANGELOG.md
@@ -3,6 +3,7 @@
 * Allow servant `0.20` [#41](https://github.com/blockfrost/blockfrost-haskell/pull/41)
 * Additions [#43](https://github.com/blockfrost/blockfrost-haskell/pull/43)
   * `getAccountAssociatedAddressesTotal` for `/accounts/:stake_address/addresses/total`
+  * `getAddressInfoExtended` for `/addresses/:address/extended`
   * `listPoolsExtended` for `/pools/extended`
   * `/utils` API
     * `deriveShelleyAddress` for `/utils/addresses/xpub/:xpub/:role/:index`

diff --git a/blockfrost-client/src/Blockfrost/Client.hs b/blockfrost-client/src/Blockfrost/Client.hs
@@ -36,6 +36,7 @@ module Blockfrost.Client
   , getAccountAssociatedAssets'
     -- Cardano - Addresses
   , getAddressInfo
+  , getAddressInfoExtended
   , getAddressDetails
   , getAddressUtxos
   , getAddressUtxos'

diff --git a/blockfrost-client/src/Blockfrost/Client/Cardano/Addresses.hs b/blockfrost-client/src/Blockfrost/Client/Cardano/Addresses.hs
@@ -2,6 +2,7 @@
 
 module Blockfrost.Client.Cardano.Addresses
   ( getAddressInfo
+  , getAddressInfoExtended
   , getAddressDetails
   , getAddressUtxos
   , getAddressUtxos'
@@ -25,6 +26,13 @@ getAddressInfo_ = _addressInfo . addressesClient
 getAddressInfo :: MonadBlockfrost m => Address -> m AddressInfo
 getAddressInfo a = go (`getAddressInfo_` a)
 
+getAddressInfoExtended_ :: MonadBlockfrost m => Project -> Address -> m AddressInfoExtended
+getAddressInfoExtended_ = _addressInfoExtended . addressesClient
+
+-- | Obtain extended information about a specific address.
+getAddressInfoExtended :: MonadBlockfrost m => Address -> m AddressInfoExtended
+getAddressInfoExtended a = go (`getAddressInfoExtended_` a)
+
 getAddressDetails_ :: MonadBlockfrost m => Project -> Address -> m AddressDetails
 getAddressDetails_ = _addressDetails . addressesClient