blockfrost-client 0.5.0.0 → 0.6.0.0

raw patch · 11 files changed

+215/−44 lines, 11 filesdep ~blockfrost-apidep ~blockfrost-client-core

Dependency ranges changed: blockfrost-api, blockfrost-client-core

Files

• CHANGELOG.md +5/−0
• blockfrost-client.cabal +3/−3
• src/Blockfrost/Client.hs +1/−0
• src/Blockfrost/Client/Cardano/Accounts.hs +40/−8
• src/Blockfrost/Client/Cardano/Addresses.hs +15/−3
• src/Blockfrost/Client/Cardano/Assets.hs +25/−5
• src/Blockfrost/Client/Cardano/Blocks.hs +26/−5
• src/Blockfrost/Client/Cardano/Epochs.hs +32/−8
• src/Blockfrost/Client/Cardano/Metadata.hs +15/−3
• src/Blockfrost/Client/Cardano/Pools.hs +35/−7
• src/Blockfrost/Client/Cardano/Scripts.hs +18/−2

@@ -1,3 +1,8 @@+# Version [0.6.0.0](https://github.com/blockfrost/blockfrost-haskell/compare/v0.5.0.0...v0.6.0.0) (2022-08-31)++* Additions+  * `getScriptDatumCBOR` query for `/scripts/datum/{datum-hash}/cbor` endpoint+ # Version [0.5.0.0](https://github.com/blockfrost/blockfrost-haskell/compare/v0.4.0.1...v0.5.0.0) (2022-06-06)  * Fix return types of `getEpochStakeByPool` and `getEpochStakeByPool'`

@@ -1,6 +1,6 @@ cabal-version:       2.2 name:                blockfrost-client-version:             0.5.0.0+version:             0.6.0.0 synopsis:            blockfrost.io basic client description:         Simple Blockfrost clients for use with transformers or mtl homepage:            https://github.com/blockfrost/blockfrost-haskell@@ -64,8 +64,8 @@                       , Blockfrost.Client.IPFS                       , Blockfrost.Client.NutLink    build-depends:       base                     >= 4.7 && < 5-                      , blockfrost-api           ^>= 0.5-                      , blockfrost-client-core+                      , blockfrost-api           ^>= 0.6+                      , blockfrost-client-core   ^>= 0.6                       , bytestring                       , directory                       , data-default

@@ -122,6 +122,7 @@   , getScriptRedeemers   , getScriptRedeemers'   , getScriptDatum+  , getScriptDatumCBOR   , getScriptJSON   , getScriptCBOR     -- Cardano - Transactions

@@ -38,11 +38,15 @@ getAccountRewards_ = _accountRewards . accountsClient  -- | Obtain information about the history of a specific account.--- Allows custom paging and ordering using @Paged@ and @SortOrder@.+-- Allows custom paging and ordering using 'Paged' and 'SortOrder'. getAccountRewards' :: MonadBlockfrost m => Address -> Paged -> SortOrder -> m [AccountReward] getAccountRewards' a pg s = go (\p -> getAccountRewards_ p a pg s)  -- | Obtain information about the history of a specific account.+--+-- Queries 100 entries. To query all entries use 'Blockfrost.Client.Core.allPages'+-- with principled variant of this function (suffixed with @'@)+-- that accepts 'Paged' argument. getAccountRewards :: MonadBlockfrost m => Address -> m [AccountReward] getAccountRewards a = getAccountRewards' a def def @@ -50,11 +54,15 @@ getAccountHistory_ = _accountHistory . accountsClient  -- | Obtain information about the history of a specific account.--- Allows custom paging and ordering using @Paged@ and @SortOrder@.+-- Allows custom paging and ordering using 'Paged' and 'SortOrder'. getAccountHistory' :: MonadBlockfrost m => Address -> Paged -> SortOrder -> m [AccountHistory] getAccountHistory' a pg s = go (\p -> getAccountHistory_ p a pg s)  -- | Obtain information about the history of a specific account.+--+-- Queries 100 entries. To query all entries use 'Blockfrost.Client.Core.allPages'+-- with principled variant of this function (suffixed with @'@)+-- that accepts 'Paged' argument. getAccountHistory :: MonadBlockfrost m => Address -> m [AccountHistory] getAccountHistory a = getAccountHistory' a def def @@ -62,11 +70,15 @@ getAccountDelegations_ = _accountDelegations . accountsClient  -- | Obtain information about the delegation of a specific account.--- Allows custom paging and ordering using @Paged@ and @SortOrder@.+-- Allows custom paging and ordering using 'Paged' and 'SortOrder'. getAccountDelegations' :: MonadBlockfrost m => Address -> Paged -> SortOrder -> m [AccountDelegation] getAccountDelegations' a pg s = go (\p -> getAccountDelegations_ p a pg s)  -- | Obtain information about the delegation of a specific account.+--+-- Queries 100 entries. To query all entries use 'Blockfrost.Client.Core.allPages'+-- with principled variant of this function (suffixed with @'@)+-- that accepts 'Paged' argument. getAccountDelegations :: MonadBlockfrost m => Address -> m [AccountDelegation] getAccountDelegations a = getAccountDelegations' a def def @@ -74,11 +86,15 @@ getAccountRegistrations_ = _accountRegistrations . accountsClient  -- | Obtain information about the registrations and deregistrations of a specific account.--- Allows custom paging and ordering using @Paged@ and @SortOrder@.+-- Allows custom paging and ordering using 'Paged' and 'SortOrder'. getAccountRegistrations' :: MonadBlockfrost m => Address -> Paged -> SortOrder -> m [AccountRegistration] getAccountRegistrations' a pg s = go (\p -> getAccountRegistrations_ p a pg s)  -- | Obtain information about the registrations and deregistrations of a specific account.+--+-- Queries 100 entries. To query all entries use 'Blockfrost.Client.Core.allPages'+-- with principled variant of this function (suffixed with @'@)+-- that accepts 'Paged' argument. getAccountRegistrations :: MonadBlockfrost m => Address -> m [AccountRegistration] getAccountRegistrations a = getAccountRegistrations' a def def @@ -86,11 +102,15 @@ getAccountWithdrawals_ = _accountWithdrawals . accountsClient  -- | Obtain information about the withdrawals of a specific account.--- Allows custom paging and ordering using @Paged@ and @SortOrder@.+-- Allows custom paging and ordering using 'Paged' and 'SortOrder'. getAccountWithdrawals' :: MonadBlockfrost m => Address -> Paged -> SortOrder -> m [AccountWithdrawal] getAccountWithdrawals' a pg s = go (\p -> getAccountWithdrawals_ p a pg s)  -- | Obtain information about the withdrawals of a specific account.+--+-- Queries 100 entries. To query all entries use 'Blockfrost.Client.Core.allPages'+-- with principled variant of this function (suffixed with @'@)+-- that accepts 'Paged' argument. getAccountWithdrawals :: MonadBlockfrost m => Address -> m [AccountWithdrawal] getAccountWithdrawals a = getAccountWithdrawals' a def def @@ -98,11 +118,15 @@ getAccountMirs_ = _accountMirs . accountsClient  -- | Obtain information about the MIRs of a specific account.--- Allows custom paging and ordering using @Paged@ and @SortOrder@.+-- Allows custom paging and ordering using 'Paged' and 'SortOrder'. getAccountMirs' :: MonadBlockfrost m => Address -> Paged -> SortOrder -> m [AccountMir] getAccountMirs' a pg s = go (\p -> getAccountMirs_ p a pg s)  -- | Obtain information about the MIRs of a specific account.+--+-- Queries 100 entries. To query all entries use 'Blockfrost.Client.Core.allPages'+-- with principled variant of this function (suffixed with @'@)+-- that accepts 'Paged' argument. getAccountMirs :: MonadBlockfrost m => Address -> m [AccountMir] getAccountMirs a = getAccountMirs' a def def @@ -110,11 +134,15 @@ getAccountAssociatedAddresses_ = _accountAssociatedAddresses . accountsClient  -- | Obtain information about the addresses of a specific account.--- Allows custom paging and ordering using @Paged@ and @SortOrder@.+-- Allows custom paging and ordering using 'Paged' and 'SortOrder'. getAccountAssociatedAddresses' :: MonadBlockfrost m => Address -> Paged -> SortOrder -> m [AddressAssociated] getAccountAssociatedAddresses' a pg s = go (\p -> getAccountAssociatedAddresses_ p a pg s)  -- | Obtain information about the addresses of a specific account.+--+-- Queries 100 entries. To query all entries use 'Blockfrost.Client.Core.allPages'+-- with principled variant of this function (suffixed with @'@)+-- that accepts 'Paged' argument. getAccountAssociatedAddresses :: MonadBlockfrost m => Address -> m [AddressAssociated] getAccountAssociatedAddresses a = getAccountAssociatedAddresses' a def def @@ -122,10 +150,14 @@ getAccountAssociatedAssets_ = _accountAssociatedAssets . accountsClient  -- | Obtain information about assets associated with addresses of a specific account.--- Allows custom paging and ordering using @Paged@ and @SortOrder@.+-- Allows custom paging and ordering using 'Paged' and 'SortOrder'. getAccountAssociatedAssets' :: MonadBlockfrost m => Address -> Paged -> SortOrder -> m [Amount] getAccountAssociatedAssets' a pg s = go (\p -> getAccountAssociatedAssets_ p a pg s)  -- | Obtain information about assets associated with addresses of a specific account.+--+-- Queries 100 entries. To query all entries use 'Blockfrost.Client.Core.allPages'+-- with principled variant of this function (suffixed with @'@)+-- that accepts 'Paged' argument. getAccountAssociatedAssets :: MonadBlockfrost m => Address -> m [Amount] getAccountAssociatedAssets a = getAccountAssociatedAssets' a def def

@@ -36,11 +36,15 @@ getAddressUtxos_ = _addressUtxos . addressesClient  -- | UTXOs of the address.--- Allows custom paging and ordering using @Paged@ and @SortOrder@.+-- Allows custom paging and ordering using 'Paged' and 'SortOrder'. getAddressUtxos' :: MonadBlockfrost m => Address -> Paged -> SortOrder -> m [AddressUtxo] getAddressUtxos' a pg s = go (\p -> getAddressUtxos_ p a pg s)  -- | UTXOs of the address.+--+-- Queries 100 entries. To query all entries use 'Blockfrost.Client.Core.allPages'+-- with principled variant of this function (suffixed with @'@)+-- that accepts 'Paged' argument. getAddressUtxos :: MonadBlockfrost m => Address -> m [AddressUtxo] getAddressUtxos a = getAddressUtxos' a def def @@ -48,11 +52,15 @@ getAddressUtxosAsset_ = _addressUtxosAsset . addressesClient  -- | UTXOs of the address containing specific asset.--- Allows custom paging and ordering using @Paged@ and @SortOrder@.+-- Allows custom paging and ordering using 'Paged' and 'SortOrder'. getAddressUtxosAsset' :: MonadBlockfrost m => Address -> AssetId-> Paged -> SortOrder -> m [AddressUtxo] getAddressUtxosAsset' addr asset pg s = go (\p -> getAddressUtxosAsset_ p addr asset pg s)  -- | UTXOs of the address containing specific asset.+--+-- Queries 100 entries. To query all entries use 'Blockfrost.Client.Core.allPages'+-- with principled variant of this function (suffixed with @'@)+-- that accepts 'Paged' argument. getAddressUtxosAsset :: MonadBlockfrost m => Address -> AssetId -> m [AddressUtxo] getAddressUtxosAsset addr asset = getAddressUtxosAsset' addr asset def def @@ -68,7 +76,7 @@ getAddressTransactions_ = _addressTransactions . addressesClient  -- | Transactions on the address.--- Allows custom paging and ordering using @Paged@ and @SortOrder@.+-- Allows custom paging and ordering using 'Paged' and 'SortOrder'. -- Also allows support for limiting block ranges using `from`/`to` -- @BlockIndex@es. getAddressTransactions' ::@@ -82,5 +90,9 @@ getAddressTransactions' a pg s from to = go (\p -> getAddressTransactions_ p a pg s from to)  -- | Transactions on the address.+--+-- Queries 100 entries. To query all entries use 'Blockfrost.Client.Core.allPages'+-- with principled variant of this function (suffixed with @'@)+-- that accepts 'Paged' argument. getAddressTransactions :: MonadBlockfrost m => Address -> m [AddressTransaction] getAddressTransactions a = getAddressTransactions' a def def Nothing Nothing

@@ -25,11 +25,15 @@ getAssets_ = _listAssets . assetsClient  -- | List all assets--- Allows custom paging and ordering using @Paged@ and @SortOrder@.+-- Allows custom paging and ordering using 'Paged' and 'SortOrder'. getAssets' :: MonadBlockfrost m => Paged -> SortOrder -> m [AssetInfo] getAssets' pg s = go (\p -> getAssets_ p pg s)  -- | List all assets+--+-- Queries 100 entries. To query all entries use 'Blockfrost.Client.Core.allPages'+-- with principled variant of this function (suffixed with @'@)+-- that accepts 'Paged' argument. getAssets :: MonadBlockfrost m => m [AssetInfo] getAssets = getAssets' def def @@ -44,11 +48,15 @@ getAssetHistory_ = _assetHistory . assetsClient  -- | History of a specific asset--- Allows custom paging and ordering using @Paged@ and @SortOrder@.+-- Allows custom paging and ordering using 'Paged' and 'SortOrder'. getAssetHistory' :: MonadBlockfrost m => AssetId -> Paged -> SortOrder -> m [AssetHistory] getAssetHistory' a pg s = go (\p -> getAssetHistory_ p a pg s)  -- | History of a specific asset+--+-- Queries 100 entries. To query all entries use 'Blockfrost.Client.Core.allPages'+-- with principled variant of this function (suffixed with @'@)+-- that accepts 'Paged' argument. getAssetHistory :: MonadBlockfrost m => AssetId -> m [AssetHistory] getAssetHistory a = getAssetHistory' a def def @@ -56,11 +64,15 @@ getAssetTransactions_ = _assetTransactions . assetsClient  -- | List of a specific asset transactions--- Allows custom paging and ordering using @Paged@ and @SortOrder@.+-- Allows custom paging and ordering using 'Paged' and 'SortOrder'. getAssetTransactions' :: MonadBlockfrost m => AssetId -> Paged -> SortOrder -> m [AssetTransaction] getAssetTransactions' a pg s = go (\p -> getAssetTransactions_ p a pg s)  -- | List of a specific asset transactions+--+-- Queries 100 entries. To query all entries use 'Blockfrost.Client.Core.allPages'+-- with principled variant of this function (suffixed with @'@)+-- that accepts 'Paged' argument. getAssetTransactions :: MonadBlockfrost m => AssetId -> m [AssetTransaction] getAssetTransactions a = getAssetTransactions' a def def @@ -68,11 +80,15 @@ getAssetAddresses_ = _assetAddresses . assetsClient  -- | List of a addresses containing a specific asset--- Allows custom paging and ordering using @Paged@ and @SortOrder@.+-- Allows custom paging and ordering using 'Paged' and 'SortOrder'. getAssetAddresses' :: MonadBlockfrost m => AssetId -> Paged -> SortOrder -> m [AssetAddress] getAssetAddresses' a pg s = go (\p -> getAssetAddresses_ p a pg s)  -- | List of a addresses containing a specific asset+--+-- Queries 100 entries. To query all entries use 'Blockfrost.Client.Core.allPages'+-- with principled variant of this function (suffixed with @'@)+-- that accepts 'Paged' argument. getAssetAddresses :: MonadBlockfrost m => AssetId -> m [AssetAddress] getAssetAddresses a = getAssetAddresses' a def def @@ -80,10 +96,14 @@ getAssetsByPolicy_ = _listAssetsPolicy . assetsClient  -- | List of asset minted under a specific policy--- Allows custom paging and ordering using @Paged@ and @SortOrder@.+-- Allows custom paging and ordering using 'Paged' and 'SortOrder'. getAssetsByPolicy' :: MonadBlockfrost m => PolicyId -> Paged -> SortOrder -> m [AssetInfo] getAssetsByPolicy' a pg s = go (\p -> getAssetsByPolicy_ p a pg s)  -- | List of asset minted under a specific policy+--+-- Queries 100 entries. To query all entries use 'Blockfrost.Client.Core.allPages'+-- with principled variant of this function (suffixed with @'@)+-- that accepts 'Paged' argument. getAssetsByPolicy :: MonadBlockfrost m => PolicyId -> m [AssetInfo] getAssetsByPolicy a = getAssetsByPolicy' a def def

@@ -35,10 +35,15 @@ getLatestBlockTxs_ = _latestTxs . blocksClient  -- | Return the transactions within the latest block.--- Allows custom paging and ordering using @Paged@ and @SortOrder@.+-- Allows custom paging and ordering using 'Paged' and 'SortOrder'. getLatestBlockTxs' :: MonadBlockfrost m => Paged -> SortOrder -> m [TxHash] getLatestBlockTxs' pg s = go (\p -> getLatestBlockTxs_ p pg s) +-- | Return the transactions within the latest block.+--+-- Queries 100 entries. To query all entries use 'Blockfrost.Client.Core.allPages'+-- with principled variant of this function (suffixed with @'@)+-- that accepts 'Paged' argument. getLatestBlockTxs :: MonadBlockfrost m => m [TxHash] getLatestBlockTxs = getLatestBlockTxs' def def @@ -67,11 +72,15 @@ getNextBlocks_ = _blockNext . blocksClient  -- | Return the list of blocks following a specific block.--- Allows custom paging using @Paged@.+-- Allows custom paging using 'Paged'. getNextBlocks' :: MonadBlockfrost m => Either Integer BlockHash -> Paged -> m [Block] getNextBlocks' a pg = go (\p -> getNextBlocks_ p a pg)  -- | Return the list of blocks following a specific block.+--+-- Queries 100 entries. To query all entries use 'Blockfrost.Client.Core.allPages'+-- with principled variant of this function (suffixed with @'@)+-- that accepts 'Paged' argument. getNextBlocks :: MonadBlockfrost m => Either Integer BlockHash -> m [Block] getNextBlocks a = getNextBlocks' a def @@ -79,11 +88,15 @@ getPreviousBlocks_ = _blockPrevious . blocksClient  -- | Return the list of blocks preceding a specific block.--- Allows custom paging using @Paged@.+-- Allows custom paging using 'Paged'. getPreviousBlocks' :: MonadBlockfrost m => Either Integer BlockHash -> Paged -> m [Block] getPreviousBlocks' a pg = go (\p -> getPreviousBlocks_ p a pg)  -- | Return the list of blocks preceding a specific block.+--+-- Queries 100 entries. To query all entries use 'Blockfrost.Client.Core.allPages'+-- with principled variant of this function (suffixed with @'@)+-- that accepts 'Paged' argument. getPreviousBlocks :: MonadBlockfrost m => Either Integer BlockHash -> m [Block] getPreviousBlocks a = getPreviousBlocks' a def @@ -91,11 +104,15 @@ getBlockTxs_ = _blockTxs . blocksClient  -- | Return the transactions within the block.--- Allows custom paging and ordering using @Paged@ and @SortOrder@.+-- Allows custom paging and ordering using 'Paged' and 'SortOrder'. getBlockTxs' :: MonadBlockfrost m => Either Integer BlockHash -> Paged -> SortOrder -> m [TxHash] getBlockTxs' a pg s = go (\p -> getBlockTxs_ p a pg s)  -- | Return the transactions within the block.+--+-- Queries 100 entries. To query all entries use 'Blockfrost.Client.Core.allPages'+-- with principled variant of this function (suffixed with @'@)+-- that accepts 'Paged' argument. getBlockTxs :: MonadBlockfrost m => Either Integer BlockHash -> m [TxHash] getBlockTxs a = getBlockTxs' a def def @@ -103,10 +120,14 @@ getBlockAffectedAddresses_ = _blockAffectedAddresses . blocksClient  -- | Return list of addresses affected in the specified block with additional information, sorted by the bech32 address, ascending.--- Allows custom paging using @Paged@.+-- Allows custom paging using 'Paged'. getBlockAffectedAddresses' :: MonadBlockfrost m => Either Integer BlockHash -> Paged -> m [(Address, [TxHash])] getBlockAffectedAddresses' a pg = go (\p -> getBlockAffectedAddresses_ p a pg)  -- | Return list of addresses affected in the specified block with additional information, sorted by the bech32 address, ascending.+--+-- Queries 100 entries. To query all entries use 'Blockfrost.Client.Core.allPages'+-- with principled variant of this function (suffixed with @'@)+-- that accepts 'Paged' argument. getBlockAffectedAddresses :: MonadBlockfrost m => Either Integer BlockHash -> m [(Address, [TxHash])] getBlockAffectedAddresses a = getBlockAffectedAddresses' a def

@@ -52,11 +52,15 @@ getNextEpochs_ = _getNextEpochs . epochsClient  -- | Return the list of epochs following a specific epoch.--- Allows custom paging using @Paged@.+-- Allows custom paging using 'Paged'. getNextEpochs' :: MonadBlockfrost m => Epoch -> Paged -> m [EpochInfo] getNextEpochs' e pg = go (\p -> getNextEpochs_ p e pg)  -- | Return the list of epochs following a specific epoch.+--+-- Queries 100 entries. To query all entries use 'Blockfrost.Client.Core.allPages'+-- with principled variant of this function (suffixed with @'@)+-- that accepts 'Paged' argument. getNextEpochs :: MonadBlockfrost m => Epoch -> m [EpochInfo] getNextEpochs e = getNextEpochs' e def @@ -64,11 +68,15 @@ getPreviousEpochs_ = _getPreviousEpochs . epochsClient  -- | Return the list of epochs preceding a specific epoch.--- Allows custom paging using @Paged@.+-- Allows custom paging using 'Paged'. getPreviousEpochs' :: MonadBlockfrost m => Epoch -> Paged -> m [EpochInfo] getPreviousEpochs' e pg = go (\p -> getPreviousEpochs_ p e pg)  -- | Return the list of epochs preceding a specific epoch.+--+-- Queries 100 entries. To query all entries use 'Blockfrost.Client.Core.allPages'+-- with principled variant of this function (suffixed with @'@)+-- that accepts 'Paged' argument. getPreviousEpochs :: MonadBlockfrost m => Epoch -> m [EpochInfo] getPreviousEpochs e = getPreviousEpochs' e def @@ -76,11 +84,15 @@ getEpochStake_ = _getEpochStake . epochsClient  -- | Return the active stake distribution for the specified epoch.--- Allows custom paging using @Paged@.+-- Allows custom paging using 'Paged'. getEpochStake' :: MonadBlockfrost m => Epoch -> Paged -> m [StakeDistribution] getEpochStake' e pg = go (\p -> getEpochStake_ p e pg)  -- | Return the active stake distribution for the specified epoch.+--+-- Queries 100 entries. To query all entries use 'Blockfrost.Client.Core.allPages'+-- with principled variant of this function (suffixed with @'@)+-- that accepts 'Paged' argument. getEpochStake :: MonadBlockfrost m => Epoch -> m [StakeDistribution] getEpochStake e = getEpochStake' e def @@ -88,23 +100,31 @@ getEpochStakeByPool_ = _getEpochStakeByPool . epochsClient  -- | Return the active stake distribution for the epoch specified by stake pool.--- Allows custom paging using @Paged@.+-- Allows custom paging using 'Paged'. getEpochStakeByPool' :: MonadBlockfrost m => Epoch -> PoolId -> Paged -> m [PoolStakeDistribution] getEpochStakeByPool' e i pg = go (\p -> getEpochStakeByPool_ p e i pg)  -- | Return the active stake distribution for the epoch specified by stake pool.+--+-- Queries 100 entries. To query all entries use 'Blockfrost.Client.Core.allPages'+-- with principled variant of this function (suffixed with @'@)+-- that accepts 'Paged' argument. getEpochStakeByPool :: MonadBlockfrost m => Epoch -> PoolId -> m [PoolStakeDistribution] getEpochStakeByPool e i = getEpochStakeByPool' e i def  getEpochBlocks_ :: MonadBlockfrost m => Project -> Epoch -> Paged -> SortOrder -> m [BlockHash] getEpochBlocks_ = _getEpochBlocks . epochsClient --- | Return the blocks minted for the epoch specified.--- Allows custom paging and ordering using @Paged@ and @SortOrder@.+-- | Return the blocks minted for the specified epoch.+-- Allows custom paging and ordering using 'Paged' and 'SortOrder'. getEpochBlocks' :: MonadBlockfrost m => Epoch -> Paged -> SortOrder -> m [BlockHash] getEpochBlocks' e pg s = go (\p -> getEpochBlocks_ p e pg s) --- | Return the blocks minted for the epoch specified.+-- | Return the blocks minted for the specified epoch.+--+-- Queries 100 entries. To query all entries use 'Blockfrost.Client.Core.allPages'+-- with principled variant of this function (suffixed with @'@)+-- that accepts 'Paged' argument. getEpochBlocks :: MonadBlockfrost m => Epoch -> m [BlockHash] getEpochBlocks e = getEpochBlocks' e def def @@ -112,11 +132,15 @@ getEpochBlocksByPool_ = _getEpochBlocksByPool . epochsClient  -- | Return the block minted for the epoch specified by stake pool.--- Allows custom paging and ordering using @Paged@ and @SortOrder@.+-- Allows custom paging and ordering using 'Paged' and 'SortOrder'. getEpochBlocksByPool' :: MonadBlockfrost m => Epoch -> PoolId -> Paged -> SortOrder -> m [BlockHash] getEpochBlocksByPool' e i pg s = go (\p -> getEpochBlocksByPool_ p e i pg s)  -- | Return the block minted for the epoch specified by stake pool.+--+-- Queries 100 entries. To query all entries use 'Blockfrost.Client.Core.allPages'+-- with principled variant of this function (suffixed with @'@)+-- that accepts 'Paged' argument. getEpochBlocksByPool :: MonadBlockfrost m => Epoch -> PoolId -> m [BlockHash] getEpochBlocksByPool e i = getEpochBlocksByPool' e i def def 

@@ -21,11 +21,15 @@ getTxMetadataLabels_ = _txMetadataLabels . metadataClient  -- | List of all used transaction metadata labels.--- Allows custom paging and ordering using @Paged@ and @SortOrder@.+-- Allows custom paging and ordering using 'Paged' and 'SortOrder'. getTxMetadataLabels' :: MonadBlockfrost m => Paged -> SortOrder -> m [TxMeta] getTxMetadataLabels' pg s = go (\p -> getTxMetadataLabels_ p pg s)  -- | List of all used transaction metadata labels.+--+-- Queries 100 entries. To query all entries use 'Blockfrost.Client.Core.allPages'+-- with principled variant of this function (suffixed with @'@)+-- that accepts 'Paged' argument. getTxMetadataLabels :: MonadBlockfrost m => m [TxMeta] getTxMetadataLabels = getTxMetadataLabels' def def @@ -33,11 +37,15 @@ getTxMetadataByLabelJSON_ = _txMetadataByLabelJSON . metadataClient  -- | Transaction metadata per label (JSON @Value@)--- Allows custom paging and ordering using @Paged@ and @SortOrder@.+-- Allows custom paging and ordering using 'Paged' and 'SortOrder'. getTxMetadataByLabelJSON' :: MonadBlockfrost m => Text -> Paged -> SortOrder -> m [TxMetaJSON] getTxMetadataByLabelJSON' t pg s = go (\p -> getTxMetadataByLabelJSON_ p t pg s)  -- | Transaction metadata per label (JSON @Value@)+--+-- Queries 100 entries. To query all entries use 'Blockfrost.Client.Core.allPages'+-- with principled variant of this function (suffixed with @'@)+-- that accepts 'Paged' argument. getTxMetadataByLabelJSON :: MonadBlockfrost m => Text -> m [TxMetaJSON] getTxMetadataByLabelJSON t = getTxMetadataByLabelJSON' t def def @@ -45,10 +53,14 @@ getTxMetadataByLabelCBOR_ = _txMetadataByLabelCBOR . metadataClient  -- | Transaction metadata per label (CBOR @ByteString@)--- Allows custom paging and ordering using @Paged@ and @SortOrder@.+-- Allows custom paging and ordering using 'Paged' and 'SortOrder'. getTxMetadataByLabelCBOR' :: MonadBlockfrost m => Text -> Paged -> SortOrder -> m [TxMetaCBOR] getTxMetadataByLabelCBOR' t pg s = go (\p -> getTxMetadataByLabelCBOR_ p t pg s)  -- | Transaction metadata per label (CBOR @ByteString@)+--+-- Queries 100 entries. To query all entries use 'Blockfrost.Client.Core.allPages'+-- with principled variant of this function (suffixed with @'@)+-- that accepts 'Paged' argument. getTxMetadataByLabelCBOR :: MonadBlockfrost m => Text -> m [TxMetaCBOR] getTxMetadataByLabelCBOR t = getTxMetadataByLabelCBOR' t def def

@@ -31,11 +31,15 @@ listPools_ = _listPools . poolsClient  -- | List registered stake pools.--- Allows custom paging and ordering using @Paged@ and @SortOrder@.+-- Allows custom paging and ordering using 'Paged' and 'SortOrder'. listPools' :: MonadBlockfrost m => Paged -> SortOrder -> m [PoolId] listPools' pg s = go (\p -> listPools_ p pg s)  -- | List registered stake pools.+--+-- Queries 100 entries. To query all entries use 'Blockfrost.Client.Core.allPages'+-- with principled variant of this function (suffixed with @'@)+-- that accepts 'Paged' argument. listPools :: MonadBlockfrost m => m [PoolId] listPools = listPools' def def @@ -43,11 +47,15 @@ listRetiredPools_ = _listRetiredPools . poolsClient  -- | List retired stake pools.--- Allows custom paging and ordering using @Paged@ and @SortOrder@.+-- Allows custom paging and ordering using 'Paged' and 'SortOrder'. listRetiredPools' :: MonadBlockfrost m => Paged -> SortOrder -> m [PoolEpoch] listRetiredPools' pg s = go (\p -> listRetiredPools_ p pg s)  -- | List retired stake pools.+--+-- Queries 100 entries. To query all entries use 'Blockfrost.Client.Core.allPages'+-- with principled variant of this function (suffixed with @'@)+-- that accepts 'Paged' argument. listRetiredPools :: MonadBlockfrost m => m [PoolEpoch] listRetiredPools = listRetiredPools' def def @@ -55,11 +63,15 @@ listRetiringPools_ = _listRetiringPools . poolsClient  -- | List retiring stake pools.--- Allows custom paging and ordering using @Paged@ and @SortOrder@.+-- Allows custom paging and ordering using 'Paged' and 'SortOrder'. listRetiringPools' :: MonadBlockfrost m => Paged -> SortOrder -> m [PoolEpoch] listRetiringPools' pg s = go (\p -> listRetiringPools_ p pg s)  -- | List retiring stake pools.+--+-- Queries 100 entries. To query all entries use 'Blockfrost.Client.Core.allPages'+-- with principled variant of this function (suffixed with @'@)+-- that accepts 'Paged' argument. listRetiringPools :: MonadBlockfrost m => m [PoolEpoch] listRetiringPools = listRetiringPools' def def @@ -74,11 +86,15 @@ getPoolHistory_ = _getPoolHistory . poolsClient  -- | Get stake pool history--- Allows custom paging and ordering using @Paged@ and @SortOrder@.+-- Allows custom paging and ordering using 'Paged' and 'SortOrder'. getPoolHistory' :: MonadBlockfrost m => PoolId -> Paged -> SortOrder -> m [PoolHistory] getPoolHistory' pid pg s = go (\p -> getPoolHistory_ p pid pg s)  -- | Get stake pool history+--+-- Queries 100 entries. To query all entries use 'Blockfrost.Client.Core.allPages'+-- with principled variant of this function (suffixed with @'@)+-- that accepts 'Paged' argument. getPoolHistory :: MonadBlockfrost m => PoolId -> m [PoolHistory] getPoolHistory p = getPoolHistory' p def def @@ -100,11 +116,15 @@ getPoolDelegators_ = _getPoolDelegators . poolsClient  -- | Get stake pool delegators--- Allows custom paging and ordering using @Paged@ and @SortOrder@.+-- Allows custom paging and ordering using 'Paged' and 'SortOrder'. getPoolDelegators' :: MonadBlockfrost m => PoolId -> Paged -> SortOrder -> m [PoolDelegator] getPoolDelegators' pid pg s = go (\p -> getPoolDelegators_ p pid pg s)  -- | Get stake pool delegators+--+-- Queries 100 entries. To query all entries use 'Blockfrost.Client.Core.allPages'+-- with principled variant of this function (suffixed with @'@)+-- that accepts 'Paged' argument. getPoolDelegators :: MonadBlockfrost m => PoolId -> m [PoolDelegator] getPoolDelegators p = getPoolDelegators' p def def @@ -112,11 +132,15 @@ getPoolBlocks_ = _getPoolBlocks . poolsClient  -- | Get stake pool blocks--- Allows custom paging and ordering using @Paged@ and @SortOrder@.+-- Allows custom paging and ordering using 'Paged' and 'SortOrder'. getPoolBlocks' :: MonadBlockfrost m => PoolId -> Paged -> SortOrder -> m [BlockHash] getPoolBlocks' pid pg s = go (\p -> getPoolBlocks_ p pid pg s)  -- | Get stake pool blocks+--+-- Queries 100 entries. To query all entries use 'Blockfrost.Client.Core.allPages'+-- with principled variant of this function (suffixed with @'@)+-- that accepts 'Paged' argument. getPoolBlocks :: MonadBlockfrost m => PoolId -> m [BlockHash] getPoolBlocks p = getPoolBlocks' p def def @@ -124,10 +148,14 @@ getPoolUpdates_ = _getPoolUpdates . poolsClient  -- | Get stake pool updates--- Allows custom paging and ordering using @Paged@ and @SortOrder@.+-- Allows custom paging and ordering using 'Paged' and 'SortOrder'. getPoolUpdates' :: MonadBlockfrost m => PoolId -> Paged -> SortOrder -> m [PoolUpdate] getPoolUpdates' pid pg s = go (\p -> getPoolUpdates_ p pid pg s)  -- | Get stake pool updates+--+-- Queries 100 entries. To query all entries use 'Blockfrost.Client.Core.allPages'+-- with principled variant of this function (suffixed with @'@)+-- that accepts 'Paged' argument. getPoolUpdates :: MonadBlockfrost m => PoolId -> m [PoolUpdate] getPoolUpdates p = getPoolUpdates' p def def

@@ -7,6 +7,7 @@   , getScriptRedeemers   , getScriptRedeemers'   , getScriptDatum+  , getScriptDatumCBOR   , getScriptJSON   , getScriptCBOR   ) where@@ -22,11 +23,15 @@ listScripts_ = _listScripts . scriptsClient  -- | List scripts--- Allows custom paging and ordering using @Paged@ and @SortOrder@.+-- Allows custom paging and ordering using 'Paged' and 'SortOrder'. listScripts' :: MonadBlockfrost m => Paged -> SortOrder -> m [ScriptHash] listScripts' pg s = go (\p -> listScripts_ p pg s)  -- | List scripts+--+-- Queries 100 entries. To query all entries use 'Blockfrost.Client.Core.allPages'+-- with principled variant of this function (suffixed with @'@)+-- that accepts 'Paged' argument. listScripts :: MonadBlockfrost m => m [ScriptHash] listScripts = listScripts' def def @@ -41,11 +46,15 @@ getScriptRedeemers_ = _getScriptRedeemers . scriptsClient  -- | Get redeemers of a specific script--- Allows custom paging and ordering using @Paged@ and @SortOrder@.+-- Allows custom paging and ordering using 'Paged' and 'SortOrder'. getScriptRedeemers' :: MonadBlockfrost m => ScriptHash -> Paged -> SortOrder -> m [ScriptRedeemer] getScriptRedeemers' sh pg s = go (\p -> getScriptRedeemers_ p sh pg s)  -- | Get redeemers of a specific script+--+-- Queries 100 entries. To query all entries use 'Blockfrost.Client.Core.allPages'+-- with principled variant of this function (suffixed with @'@)+-- that accepts 'Paged' argument. getScriptRedeemers :: MonadBlockfrost m => ScriptHash -> m [ScriptRedeemer] getScriptRedeemers sh = getScriptRedeemers' sh def def @@ -55,6 +64,13 @@ -- | Get specific datum getScriptDatum :: MonadBlockfrost m => DatumHash -> m ScriptDatum getScriptDatum sh = go (`getScriptDatum_` sh)++getScriptDatumCBOR_ :: MonadBlockfrost m => Project -> DatumHash -> m ScriptDatumCBOR+getScriptDatumCBOR_ = _getScriptDatumCBOR . scriptsClient++-- | Get specific datum+getScriptDatumCBOR :: MonadBlockfrost m => DatumHash -> m ScriptDatumCBOR+getScriptDatumCBOR sh = go (`getScriptDatumCBOR_` sh)  getScriptJSON_ :: MonadBlockfrost m => Project -> ScriptHash -> m ScriptJSON getScriptJSON_ = _getScriptJSON . scriptsClient