From 4d854fd0cd9d87b63647fdbdad2950467408df78 Mon Sep 17 00:00:00 2001 From: John Ky Date: Mon, 3 Jun 2024 23:45:44 +1000 Subject: [PATCH 1/2] Re-export allPages --- polysemy-blockfrost.cabal | 6 +++--- src/Polysemy/Blockfrost.hs | 5 +++++ src/Polysemy/Blockfrost/Api.hs | 2 +- src/Polysemy/Blockfrost/Effect/Blockfrost.hs | 2 +- 4 files changed, 10 insertions(+), 5 deletions(-) diff --git a/polysemy-blockfrost.cabal b/polysemy-blockfrost.cabal index e9c5960..74c319d 100644 --- a/polysemy-blockfrost.cabal +++ b/polysemy-blockfrost.cabal @@ -19,7 +19,7 @@ source-repository head type: git location: https://github.com/haskell-works/polysemy-blockfrost -common base { build-depends: base >= 4.18 && < 5 } +common base { build-depends: base >= 4.14 && < 5 } common blockfrost-api { build-depends: blockfrost-api < 0.11 } common blockfrost-client { build-depends: blockfrost-client < 0.9 } @@ -56,12 +56,12 @@ library Polysemy.Blockfrost.Client Polysemy.Blockfrost.Effect.Blockfrost hs-source-dirs: src - default-language: GHC2021 + default-language: Haskell2010 test-suite polysemy-blockfrost-test import: base, project-config, tasty, - default-language: GHC2021 + default-language: Haskell2010 type: exitcode-stdio-1.0 build-tool-depends: tasty-discover:tasty-discover hs-source-dirs: test diff --git a/src/Polysemy/Blockfrost.hs b/src/Polysemy/Blockfrost.hs index a126173..9625d86 100644 --- a/src/Polysemy/Blockfrost.hs +++ b/src/Polysemy/Blockfrost.hs @@ -166,6 +166,11 @@ module Polysemy.Blockfrost getTxMetadataByLabelCBOR', getTxMetadataByLabelCBOR, + -- * Pagination + allPages, + ) where import Polysemy.Blockfrost.Api + +import Blockfrost.Client (allPages) diff --git a/src/Polysemy/Blockfrost/Api.hs b/src/Polysemy/Blockfrost/Api.hs index 928bb03..b26e54f 100644 --- a/src/Polysemy/Blockfrost/Api.hs +++ b/src/Polysemy/Blockfrost/Api.hs @@ -252,7 +252,7 @@ import Control.Monad import Data.Either import Data.Maybe import Data.Text -import GHC.Integer +import Prelude (Integer) import Blockfrost.Client (AccountDelegation (..), AccountHistory (..), diff --git a/src/Polysemy/Blockfrost/Effect/Blockfrost.hs b/src/Polysemy/Blockfrost/Effect/Blockfrost.hs index 0f38b7d..4b65af8 100644 --- a/src/Polysemy/Blockfrost/Effect/Blockfrost.hs +++ b/src/Polysemy/Blockfrost/Effect/Blockfrost.hs @@ -21,7 +21,7 @@ import Data.Either import Data.Function (($)) import Data.Maybe import Data.Text (Text) -import GHC.Integer +import Prelude (Integer) import System.IO (IO) import Blockfrost.Client (BlockfrostError, Project) From e9ee5a569945f1695b97d0dd7cf52232f0d44449 Mon Sep 17 00:00:00 2001 From: John Ky Date: Tue, 4 Jun 2024 00:01:56 +1000 Subject: [PATCH 2/2] Export getAddressTransactions' --- polysemy-blockfrost.cabal | 2 +- src/Polysemy/Blockfrost.hs | 1 + src/Polysemy/Blockfrost/Api.hs | 4 + src/Polysemy/Blockfrost/Effect/Blockfrost.hs | 270 ++++++++++--------- 4 files changed, 142 insertions(+), 135 deletions(-) diff --git a/polysemy-blockfrost.cabal b/polysemy-blockfrost.cabal index 74c319d..5e60ec0 100644 --- a/polysemy-blockfrost.cabal +++ b/polysemy-blockfrost.cabal @@ -29,7 +29,7 @@ common polysemy-plugin { build-depends: polysemy-plugin common tasty { build-depends: tasty < 1.6 } common text { build-depends: text < 3 } -common polysemy-blockfrost { build-depends: polysemy-blockfrost } +common polysemy-blockfrost { build-depends: polysemy-blockfrost } common project-config import: polysemy, diff --git a/src/Polysemy/Blockfrost.hs b/src/Polysemy/Blockfrost.hs index 9625d86..4f7d021 100644 --- a/src/Polysemy/Blockfrost.hs +++ b/src/Polysemy/Blockfrost.hs @@ -56,6 +56,7 @@ module Polysemy.Blockfrost getAddressUtxos, getAddressUtxosAsset', getAddressUtxosAsset, + getAddressTransactions', getAddressTransactions, -- * Client.Cardano.Assets diff --git a/src/Polysemy/Blockfrost/Api.hs b/src/Polysemy/Blockfrost/Api.hs index b26e54f..8fd37ab 100644 --- a/src/Polysemy/Blockfrost/Api.hs +++ b/src/Polysemy/Blockfrost/Api.hs @@ -136,6 +136,7 @@ module Polysemy.Blockfrost.Api getAddressUtxos , getAddressUtxosAsset' , getAddressUtxosAsset , + getAddressTransactions' , getAddressTransactions , -- Client.Cardano.Assets @@ -278,6 +279,7 @@ import Blockfrost.Client (AccountDelegation (..), AssetTransaction (..), Block (..), BlockHash (..), + BlockIndex (..), BlockfrostError (..), CBORString (..), DatumHash (..), @@ -395,6 +397,7 @@ getAddressUtxos' :: Member Blockfrost r => Member (Error Bloc getAddressUtxos :: Member Blockfrost r => Member (Error BlockfrostError) r => Address -> Sem r [AddressUtxo] getAddressUtxosAsset' :: Member Blockfrost r => Member (Error BlockfrostError) r => Address -> AssetId-> Paged -> SortOrder -> Sem r [AddressUtxo] getAddressUtxosAsset :: Member Blockfrost r => Member (Error BlockfrostError) r => Address -> AssetId -> Sem r [AddressUtxo] +getAddressTransactions' :: Member Blockfrost r => Member (Error BlockfrostError) r => Address -> Paged -> SortOrder -> Maybe BlockIndex -> Maybe BlockIndex -> Sem r [AddressTransaction] getAddressTransactions :: Member Blockfrost r => Member (Error BlockfrostError) r => Address -> Sem r [AddressTransaction] -- Client.Cardano.Assets @@ -559,6 +562,7 @@ getAddressUtxos a = fromEither =<< BF.getAddressUtxos getAddressUtxosAsset' a b c d = fromEither =<< BF.getAddressUtxosAsset' a b c d getAddressUtxosAsset a b = fromEither =<< BF.getAddressUtxosAsset a b getAddressTransactions a = fromEither =<< BF.getAddressTransactions a +getAddressTransactions' a b c d e = fromEither =<< BF.getAddressTransactions' a b c d e -- Client.Cardano.Assets getAssets' a b = fromEither =<< BF.getAssets' a b diff --git a/src/Polysemy/Blockfrost/Effect/Blockfrost.hs b/src/Polysemy/Blockfrost/Effect/Blockfrost.hs index 4b65af8..143f626 100644 --- a/src/Polysemy/Blockfrost/Effect/Blockfrost.hs +++ b/src/Polysemy/Blockfrost/Effect/Blockfrost.hs @@ -86,6 +86,7 @@ data Blockfrost m a where GetAddressUtxos :: Address -> Blockfrost m (Either BlockfrostError [AddressUtxo]) GetAddressUtxosAsset' :: Address -> AssetId-> Paged -> SortOrder -> Blockfrost m (Either BlockfrostError [AddressUtxo]) GetAddressUtxosAsset :: Address -> AssetId -> Blockfrost m (Either BlockfrostError [AddressUtxo]) + GetAddressTransactions' :: Address -> Paged -> SortOrder -> Maybe BlockIndex -> Maybe BlockIndex -> Blockfrost m (Either BlockfrostError [AddressTransaction]) GetAddressTransactions :: Address -> Blockfrost m (Either BlockfrostError [AddressTransaction]) -- Client.Cardano.Assets @@ -215,163 +216,164 @@ runBlockfrost :: () runBlockfrost = interpret $ \case -- Client - GetRoot -> callBlockfrost $ BF.getRoot - GetHealth -> callBlockfrost $ BF.getHealth - GetClock -> callBlockfrost $ BF.getClock - GetMetrics -> callBlockfrost $ BF.getMetrics - GetMetricsEndpoints -> callBlockfrost $ BF.getMetricsEndpoints + GetRoot -> callBlockfrost $ BF.getRoot + GetHealth -> callBlockfrost $ BF.getHealth + GetClock -> callBlockfrost $ BF.getClock + GetMetrics -> callBlockfrost $ BF.getMetrics + GetMetricsEndpoints -> callBlockfrost $ BF.getMetricsEndpoints -- Client.NutLink - NutlinkListAddress a -> callBlockfrost $ BF.nutlinkListAddress a - NutlinkListAddressTickers' a b c -> callBlockfrost $ BF.nutlinkListAddressTickers' a b c - NutlinkListAddressTickers a -> callBlockfrost $ BF.nutlinkListAddressTickers a - NutlinkAddressTickers' a b c d -> callBlockfrost $ BF.nutlinkAddressTickers' a b c d - NutlinkAddressTickers a b -> callBlockfrost $ BF.nutlinkAddressTickers a b - NutlinkTickers' a b c -> callBlockfrost $ BF.nutlinkTickers' a b c - NutlinkTickers a -> callBlockfrost $ BF.nutlinkTickers a + NutlinkListAddress a -> callBlockfrost $ BF.nutlinkListAddress a + NutlinkListAddressTickers' a b c -> callBlockfrost $ BF.nutlinkListAddressTickers' a b c + NutlinkListAddressTickers a -> callBlockfrost $ BF.nutlinkListAddressTickers a + NutlinkAddressTickers' a b c d -> callBlockfrost $ BF.nutlinkAddressTickers' a b c d + NutlinkAddressTickers a b -> callBlockfrost $ BF.nutlinkAddressTickers a b + NutlinkTickers' a b c -> callBlockfrost $ BF.nutlinkTickers' a b c + NutlinkTickers a -> callBlockfrost $ BF.nutlinkTickers a -- -- Client.IPFS - IpfsGateway a -> callBlockfrost $ BF.ipfsGateway a - IpfsPin a -> callBlockfrost $ BF.ipfsPin a - IpfsListPins' a b -> callBlockfrost $ BF.ipfsListPins' a b - IpfsListPins -> callBlockfrost $ BF.ipfsListPins - IpfsGetPin a -> callBlockfrost $ BF.ipfsGetPin a - IpfsRemovePin a -> callBlockfrost $ BF.ipfsRemovePin a + IpfsGateway a -> callBlockfrost $ BF.ipfsGateway a + IpfsPin a -> callBlockfrost $ BF.ipfsPin a + IpfsListPins' a b -> callBlockfrost $ BF.ipfsListPins' a b + IpfsListPins -> callBlockfrost $ BF.ipfsListPins + IpfsGetPin a -> callBlockfrost $ BF.ipfsGetPin a + IpfsRemovePin a -> callBlockfrost $ BF.ipfsRemovePin a -- Client.Cardano.Blocks - GetLatestBlock -> callBlockfrost $ BF.getLatestBlock - GetLatestBlockTxs' a b -> callBlockfrost $ BF.getLatestBlockTxs' a b - GetLatestBlockTxs -> callBlockfrost $ BF.getLatestBlockTxs - GetBlock a -> callBlockfrost $ BF.getBlock a - GetBlockSlot a -> callBlockfrost $ BF.getBlockSlot a - GetBlockEpochSlot a b -> callBlockfrost $ BF.getBlockEpochSlot a b - GetNextBlocks' a b -> callBlockfrost $ BF.getNextBlocks' a b - GetNextBlocks a -> callBlockfrost $ BF.getNextBlocks a - GetPreviousBlocks' a b -> callBlockfrost $ BF.getPreviousBlocks' a b - GetPreviousBlocks a -> callBlockfrost $ BF.getPreviousBlocks a - GetBlockTxs' a b c -> callBlockfrost $ BF.getBlockTxs' a b c - GetBlockTxs a -> callBlockfrost $ BF.getBlockTxs a - GetBlockAffectedAddresses' a b -> callBlockfrost $ BF.getBlockAffectedAddresses' a b - GetBlockAffectedAddresses a -> callBlockfrost $ BF.getBlockAffectedAddresses a + GetLatestBlock -> callBlockfrost $ BF.getLatestBlock + GetLatestBlockTxs' a b -> callBlockfrost $ BF.getLatestBlockTxs' a b + GetLatestBlockTxs -> callBlockfrost $ BF.getLatestBlockTxs + GetBlock a -> callBlockfrost $ BF.getBlock a + GetBlockSlot a -> callBlockfrost $ BF.getBlockSlot a + GetBlockEpochSlot a b -> callBlockfrost $ BF.getBlockEpochSlot a b + GetNextBlocks' a b -> callBlockfrost $ BF.getNextBlocks' a b + GetNextBlocks a -> callBlockfrost $ BF.getNextBlocks a + GetPreviousBlocks' a b -> callBlockfrost $ BF.getPreviousBlocks' a b + GetPreviousBlocks a -> callBlockfrost $ BF.getPreviousBlocks a + GetBlockTxs' a b c -> callBlockfrost $ BF.getBlockTxs' a b c + GetBlockTxs a -> callBlockfrost $ BF.getBlockTxs a + GetBlockAffectedAddresses' a b -> callBlockfrost $ BF.getBlockAffectedAddresses' a b + GetBlockAffectedAddresses a -> callBlockfrost $ BF.getBlockAffectedAddresses a -- -- Client.Cardano.Network - GetNetworkInfo -> callBlockfrost $ BF.getNetworkInfo - GetNetworkEras -> callBlockfrost $ BF.getNetworkEras + GetNetworkInfo -> callBlockfrost $ BF.getNetworkInfo + GetNetworkEras -> callBlockfrost $ BF.getNetworkEras -- Client.Cardano.Addresses - GetAddressInfo a -> callBlockfrost $ BF.getAddressInfo a - GetAddressInfoExtended a -> callBlockfrost $ BF.getAddressInfoExtended a - GetAddressDetails a -> callBlockfrost $ BF.getAddressDetails a - GetAddressUtxos' a b c -> callBlockfrost $ BF.getAddressUtxos' a b c - GetAddressUtxos a -> callBlockfrost $ BF.getAddressUtxos a - GetAddressUtxosAsset' a b c d -> callBlockfrost $ BF.getAddressUtxosAsset' a b c d - GetAddressUtxosAsset a b -> callBlockfrost $ BF.getAddressUtxosAsset a b - GetAddressTransactions a -> callBlockfrost $ BF.getAddressTransactions a + GetAddressInfo a -> callBlockfrost $ BF.getAddressInfo a + GetAddressInfoExtended a -> callBlockfrost $ BF.getAddressInfoExtended a + GetAddressDetails a -> callBlockfrost $ BF.getAddressDetails a + GetAddressUtxos' a b c -> callBlockfrost $ BF.getAddressUtxos' a b c + GetAddressUtxos a -> callBlockfrost $ BF.getAddressUtxos a + GetAddressUtxosAsset' a b c d -> callBlockfrost $ BF.getAddressUtxosAsset' a b c d + GetAddressUtxosAsset a b -> callBlockfrost $ BF.getAddressUtxosAsset a b + GetAddressTransactions a -> callBlockfrost $ BF.getAddressTransactions a + GetAddressTransactions' a b c d e -> callBlockfrost $ BF.getAddressTransactions' a b c d e -- Client.Cardano.Assets - GetAssets' a b -> callBlockfrost $ BF.getAssets' a b - GetAssets -> callBlockfrost $ BF.getAssets - GetAssetDetails a -> callBlockfrost $ BF.getAssetDetails a - GetAssetHistory' a b c -> callBlockfrost $ BF.getAssetHistory' a b c - GetAssetHistory a -> callBlockfrost $ BF.getAssetHistory a - GetAssetTransactions' a b c -> callBlockfrost $ BF.getAssetTransactions' a b c - GetAssetTransactions a -> callBlockfrost $ BF.getAssetTransactions a - GetAssetAddresses' a b c -> callBlockfrost $ BF.getAssetAddresses' a b c - GetAssetAddresses a -> callBlockfrost $ BF.getAssetAddresses a - GetAssetsByPolicy' a b c -> callBlockfrost $ BF.getAssetsByPolicy' a b c - GetAssetsByPolicy a -> callBlockfrost $ BF.getAssetsByPolicy a + GetAssets' a b -> callBlockfrost $ BF.getAssets' a b + GetAssets -> callBlockfrost $ BF.getAssets + GetAssetDetails a -> callBlockfrost $ BF.getAssetDetails a + GetAssetHistory' a b c -> callBlockfrost $ BF.getAssetHistory' a b c + GetAssetHistory a -> callBlockfrost $ BF.getAssetHistory a + GetAssetTransactions' a b c -> callBlockfrost $ BF.getAssetTransactions' a b c + GetAssetTransactions a -> callBlockfrost $ BF.getAssetTransactions a + GetAssetAddresses' a b c -> callBlockfrost $ BF.getAssetAddresses' a b c + GetAssetAddresses a -> callBlockfrost $ BF.getAssetAddresses a + GetAssetsByPolicy' a b c -> callBlockfrost $ BF.getAssetsByPolicy' a b c + GetAssetsByPolicy a -> callBlockfrost $ BF.getAssetsByPolicy a -- Client.Cardano.Scripts - ListScripts' a b -> callBlockfrost $ BF.listScripts' a b - ListScripts -> callBlockfrost $ BF.listScripts - GetScript a -> callBlockfrost $ BF.getScript a - GetScriptRedeemers' a b c -> callBlockfrost $ BF.getScriptRedeemers' a b c - GetScriptRedeemers a -> callBlockfrost $ BF.getScriptRedeemers a - GetScriptDatum a -> callBlockfrost $ BF.getScriptDatum a - GetScriptDatumCBOR a -> callBlockfrost $ BF.getScriptDatumCBOR a - GetScriptJSON a -> callBlockfrost $ BF.getScriptJSON a - GetScriptCBOR a -> callBlockfrost $ BF.getScriptCBOR a + ListScripts' a b -> callBlockfrost $ BF.listScripts' a b + ListScripts -> callBlockfrost $ BF.listScripts + GetScript a -> callBlockfrost $ BF.getScript a + GetScriptRedeemers' a b c -> callBlockfrost $ BF.getScriptRedeemers' a b c + GetScriptRedeemers a -> callBlockfrost $ BF.getScriptRedeemers a + GetScriptDatum a -> callBlockfrost $ BF.getScriptDatum a + GetScriptDatumCBOR a -> callBlockfrost $ BF.getScriptDatumCBOR a + GetScriptJSON a -> callBlockfrost $ BF.getScriptJSON a + GetScriptCBOR a -> callBlockfrost $ BF.getScriptCBOR a -- Client.Cardano.Epochs - GetLatestEpoch -> callBlockfrost $ BF.getLatestEpoch - GetLatestEpochProtocolParams -> callBlockfrost $ BF.getLatestEpochProtocolParams - GetEpoch a -> callBlockfrost $ BF.getEpoch a - GetNextEpochs' a b -> callBlockfrost $ BF.getNextEpochs' a b - GetNextEpochs a -> callBlockfrost $ BF.getNextEpochs a - GetPreviousEpochs' a b -> callBlockfrost $ BF.getPreviousEpochs' a b - GetPreviousEpochs a -> callBlockfrost $ BF.getPreviousEpochs a - GetEpochStake' a b -> callBlockfrost $ BF.getEpochStake' a b - GetEpochStake a -> callBlockfrost $ BF.getEpochStake a - GetEpochStakeByPool' a b c -> callBlockfrost $ BF.getEpochStakeByPool' a b c - GetEpochStakeByPool a b -> callBlockfrost $ BF.getEpochStakeByPool a b - GetEpochBlocks' a b c -> callBlockfrost $ BF.getEpochBlocks' a b c - GetEpochBlocks a -> callBlockfrost $ BF.getEpochBlocks a - GetEpochBlocksByPool' a b c d -> callBlockfrost $ BF.getEpochBlocksByPool' a b c d - GetEpochBlocksByPool a b -> callBlockfrost $ BF.getEpochBlocksByPool a b - GetEpochProtocolParams a -> callBlockfrost $ BF.getEpochProtocolParams a + GetLatestEpoch -> callBlockfrost $ BF.getLatestEpoch + GetLatestEpochProtocolParams -> callBlockfrost $ BF.getLatestEpochProtocolParams + GetEpoch a -> callBlockfrost $ BF.getEpoch a + GetNextEpochs' a b -> callBlockfrost $ BF.getNextEpochs' a b + GetNextEpochs a -> callBlockfrost $ BF.getNextEpochs a + GetPreviousEpochs' a b -> callBlockfrost $ BF.getPreviousEpochs' a b + GetPreviousEpochs a -> callBlockfrost $ BF.getPreviousEpochs a + GetEpochStake' a b -> callBlockfrost $ BF.getEpochStake' a b + GetEpochStake a -> callBlockfrost $ BF.getEpochStake a + GetEpochStakeByPool' a b c -> callBlockfrost $ BF.getEpochStakeByPool' a b c + GetEpochStakeByPool a b -> callBlockfrost $ BF.getEpochStakeByPool a b + GetEpochBlocks' a b c -> callBlockfrost $ BF.getEpochBlocks' a b c + GetEpochBlocks a -> callBlockfrost $ BF.getEpochBlocks a + GetEpochBlocksByPool' a b c d -> callBlockfrost $ BF.getEpochBlocksByPool' a b c d + GetEpochBlocksByPool a b -> callBlockfrost $ BF.getEpochBlocksByPool a b + GetEpochProtocolParams a -> callBlockfrost $ BF.getEpochProtocolParams a -- Client.Cardano.Transactions - GetTx a -> callBlockfrost $ BF.getTx a - GetTxUtxos a -> callBlockfrost $ BF.getTxUtxos a - GetTxRedeemers a -> callBlockfrost $ BF.getTxRedeemers a - GetTxStakes a -> callBlockfrost $ BF.getTxStakes a - GetTxDelegations a -> callBlockfrost $ BF.getTxDelegations a - GetTxWithdrawals a -> callBlockfrost $ BF.getTxWithdrawals a - GetTxMirs a -> callBlockfrost $ BF.getTxMirs a - GetTxPoolUpdates a -> callBlockfrost $ BF.getTxPoolUpdates a - GetTxPoolRetiring a -> callBlockfrost $ BF.getTxPoolRetiring a - GetTxMetadataJSON a -> callBlockfrost $ BF.getTxMetadataJSON a - GetTxMetadataCBOR a -> callBlockfrost $ BF.getTxMetadataCBOR a - SubmitTx a -> callBlockfrost $ BF.submitTx a + GetTx a -> callBlockfrost $ BF.getTx a + GetTxUtxos a -> callBlockfrost $ BF.getTxUtxos a + GetTxRedeemers a -> callBlockfrost $ BF.getTxRedeemers a + GetTxStakes a -> callBlockfrost $ BF.getTxStakes a + GetTxDelegations a -> callBlockfrost $ BF.getTxDelegations a + GetTxWithdrawals a -> callBlockfrost $ BF.getTxWithdrawals a + GetTxMirs a -> callBlockfrost $ BF.getTxMirs a + GetTxPoolUpdates a -> callBlockfrost $ BF.getTxPoolUpdates a + GetTxPoolRetiring a -> callBlockfrost $ BF.getTxPoolRetiring a + GetTxMetadataJSON a -> callBlockfrost $ BF.getTxMetadataJSON a + GetTxMetadataCBOR a -> callBlockfrost $ BF.getTxMetadataCBOR a + SubmitTx a -> callBlockfrost $ BF.submitTx a -- Client.Cardano.Ledger - GetLedgerGenesis -> callBlockfrost $ BF.getLedgerGenesis + GetLedgerGenesis -> callBlockfrost $ BF.getLedgerGenesis -- Client.Cardano.Accounts - GetAccount a -> callBlockfrost $ BF.getAccount a - GetAccountRewards' a b c -> callBlockfrost $ BF.getAccountRewards' a b c - GetAccountRewards a -> callBlockfrost $ BF.getAccountRewards a - GetAccountHistory' a b c -> callBlockfrost $ BF.getAccountHistory' a b c - GetAccountHistory a -> callBlockfrost $ BF.getAccountHistory a - GetAccountDelegations' a b c -> callBlockfrost $ BF.getAccountDelegations' a b c - GetAccountDelegations a -> callBlockfrost $ BF.getAccountDelegations a - GetAccountRegistrations' a b c -> callBlockfrost $ BF.getAccountRegistrations' a b c - GetAccountRegistrations a -> callBlockfrost $ BF.getAccountRegistrations a - GetAccountWithdrawals' a b c -> callBlockfrost $ BF.getAccountWithdrawals' a b c - GetAccountWithdrawals a -> callBlockfrost $ BF.getAccountWithdrawals a - GetAccountMirs' a b c -> callBlockfrost $ BF.getAccountMirs' a b c - GetAccountMirs a -> callBlockfrost $ BF.getAccountMirs a - GetAccountAssociatedAddresses' a b c -> callBlockfrost $ BF.getAccountAssociatedAddresses' a b c - GetAccountAssociatedAddresses a -> callBlockfrost $ BF.getAccountAssociatedAddresses a - GetAccountAssociatedAddressesTotal a -> callBlockfrost $ BF.getAccountAssociatedAddressesTotal a - GetAccountAssociatedAssets' a b c -> callBlockfrost $ BF.getAccountAssociatedAssets' a b c - GetAccountAssociatedAssets a -> callBlockfrost $ BF.getAccountAssociatedAssets a + GetAccount a -> callBlockfrost $ BF.getAccount a + GetAccountRewards' a b c -> callBlockfrost $ BF.getAccountRewards' a b c + GetAccountRewards a -> callBlockfrost $ BF.getAccountRewards a + GetAccountHistory' a b c -> callBlockfrost $ BF.getAccountHistory' a b c + GetAccountHistory a -> callBlockfrost $ BF.getAccountHistory a + GetAccountDelegations' a b c -> callBlockfrost $ BF.getAccountDelegations' a b c + GetAccountDelegations a -> callBlockfrost $ BF.getAccountDelegations a + GetAccountRegistrations' a b c -> callBlockfrost $ BF.getAccountRegistrations' a b c + GetAccountRegistrations a -> callBlockfrost $ BF.getAccountRegistrations a + GetAccountWithdrawals' a b c -> callBlockfrost $ BF.getAccountWithdrawals' a b c + GetAccountWithdrawals a -> callBlockfrost $ BF.getAccountWithdrawals a + GetAccountMirs' a b c -> callBlockfrost $ BF.getAccountMirs' a b c + GetAccountMirs a -> callBlockfrost $ BF.getAccountMirs a + GetAccountAssociatedAddresses' a b c -> callBlockfrost $ BF.getAccountAssociatedAddresses' a b c + GetAccountAssociatedAddresses a -> callBlockfrost $ BF.getAccountAssociatedAddresses a + GetAccountAssociatedAddressesTotal a -> callBlockfrost $ BF.getAccountAssociatedAddressesTotal a + GetAccountAssociatedAssets' a b c -> callBlockfrost $ BF.getAccountAssociatedAssets' a b c + GetAccountAssociatedAssets a -> callBlockfrost $ BF.getAccountAssociatedAssets a -- Client.Cardano.Pools - ListPools' a b -> callBlockfrost $ BF.listPools' a b - ListPools -> callBlockfrost $ BF.listPools - ListPoolsExtended' a b -> callBlockfrost $ BF.listPoolsExtended' a b - ListPoolsExtended -> callBlockfrost $ BF.listPoolsExtended - ListRetiredPools' a b -> callBlockfrost $ BF.listRetiredPools' a b - ListRetiredPools -> callBlockfrost $ BF.listRetiredPools - ListRetiringPools' a b -> callBlockfrost $ BF.listRetiringPools' a b - ListRetiringPools -> callBlockfrost $ BF.listRetiringPools - GetPool a -> callBlockfrost $ BF.getPool a - GetPoolHistory' a b c -> callBlockfrost $ BF.getPoolHistory' a b c - GetPoolHistory a -> callBlockfrost $ BF.getPoolHistory a - GetPoolMetadata a -> callBlockfrost $ BF.getPoolMetadata a - GetPoolRelays a -> callBlockfrost $ BF.getPoolRelays a - GetPoolDelegators' a b c -> callBlockfrost $ BF.getPoolDelegators' a b c - GetPoolDelegators a -> callBlockfrost $ BF.getPoolDelegators a - GetPoolBlocks' a b c -> callBlockfrost $ BF.getPoolBlocks' a b c - GetPoolBlocks a -> callBlockfrost $ BF.getPoolBlocks a - GetPoolUpdates' a b c -> callBlockfrost $ BF.getPoolUpdates' a b c - GetPoolUpdates a -> callBlockfrost $ BF.getPoolUpdates a + ListPools' a b -> callBlockfrost $ BF.listPools' a b + ListPools -> callBlockfrost $ BF.listPools + ListPoolsExtended' a b -> callBlockfrost $ BF.listPoolsExtended' a b + ListPoolsExtended -> callBlockfrost $ BF.listPoolsExtended + ListRetiredPools' a b -> callBlockfrost $ BF.listRetiredPools' a b + ListRetiredPools -> callBlockfrost $ BF.listRetiredPools + ListRetiringPools' a b -> callBlockfrost $ BF.listRetiringPools' a b + ListRetiringPools -> callBlockfrost $ BF.listRetiringPools + GetPool a -> callBlockfrost $ BF.getPool a + GetPoolHistory' a b c -> callBlockfrost $ BF.getPoolHistory' a b c + GetPoolHistory a -> callBlockfrost $ BF.getPoolHistory a + GetPoolMetadata a -> callBlockfrost $ BF.getPoolMetadata a + GetPoolRelays a -> callBlockfrost $ BF.getPoolRelays a + GetPoolDelegators' a b c -> callBlockfrost $ BF.getPoolDelegators' a b c + GetPoolDelegators a -> callBlockfrost $ BF.getPoolDelegators a + GetPoolBlocks' a b c -> callBlockfrost $ BF.getPoolBlocks' a b c + GetPoolBlocks a -> callBlockfrost $ BF.getPoolBlocks a + GetPoolUpdates' a b c -> callBlockfrost $ BF.getPoolUpdates' a b c + GetPoolUpdates a -> callBlockfrost $ BF.getPoolUpdates a -- Client.Cardano.Metadata - GetTxMetadataLabels' a b -> callBlockfrost $ BF.getTxMetadataLabels' a b - GetTxMetadataLabels -> callBlockfrost $ BF.getTxMetadataLabels - GetTxMetadataByLabelJSON' a b c -> callBlockfrost $ BF.getTxMetadataByLabelJSON' a b c - GetTxMetadataByLabelJSON a -> callBlockfrost $ BF.getTxMetadataByLabelJSON a - GetTxMetadataByLabelCBOR' a b c -> callBlockfrost $ BF.getTxMetadataByLabelCBOR' a b c - GetTxMetadataByLabelCBOR a -> callBlockfrost $ BF.getTxMetadataByLabelCBOR a + GetTxMetadataLabels' a b -> callBlockfrost $ BF.getTxMetadataLabels' a b + GetTxMetadataLabels -> callBlockfrost $ BF.getTxMetadataLabels + GetTxMetadataByLabelJSON' a b c -> callBlockfrost $ BF.getTxMetadataByLabelJSON' a b c + GetTxMetadataByLabelJSON a -> callBlockfrost $ BF.getTxMetadataByLabelJSON a + GetTxMetadataByLabelCBOR' a b c -> callBlockfrost $ BF.getTxMetadataByLabelCBOR' a b c + GetTxMetadataByLabelCBOR a -> callBlockfrost $ BF.getTxMetadataByLabelCBOR a