{-# LANGUAGE FlexibleContexts #-}

module Polysemy.Blockfrost.Api
  ( Blockfrost,

    AccountDelegation(..),
    AccountHistory(..),
    AccountInfo(..),
    AccountMir(..),
    AccountRegistration(..),
    AccountRegistrationAction(..),
    AccountReward(..),
    AccountWithdrawal(..),
    Address(..),
    AddressAssociated(..),
    AddressAssociatedTotal(..),
    AddressDetails(..),
    AddressInfo(..),
    AddressInfoExtended(..),
    AddressTransaction(..),
    AddressType(..),
    AddressUtxo(..),
    Amount(..),
    AssetAction(..),
    AssetAddress(..),
    AssetDetails(..),
    AssetHistory(..),
    AssetId(..),
    AssetInfo(..),
    AssetMetadata(..),
    AssetOnChainMetadata(..),
    AssetTransaction(..),
    Block(..),
    BlockfrostError(..),
    BlockHash(..),
    CBORString(..),
    CostModels(..),
    DatumHash(..),
    DerivedAddress(..),
    Epoch(..),
    EpochInfo(..),
    EpochLength(..),
    Genesis(..),
    Healthy(..),
    InlineDatum(..),
    IPFSAdd(..),
    IPFSData(..),
    IPFSPin(..),
    IPFSPinChange(..),
    Lovelaces,
    MetadataMediaFile(..),
    Metric(..),
    Network(..),
    NetworkEraBound(..),
    NetworkEraParameters(..),
    NetworkEraSummary(..),
    NetworkStake(..),
    NetworkSupply(..),
    NutlinkAddress(..),
    NutlinkAddressTicker(..),
    NutlinkTicker(..),
    Paged(..),
    PinState(..),
    PolicyId,
    Pool(..),
    PoolDelegator(..),
    PoolEpoch(..),
    PoolHistory(..),
    PoolId(..),
    PoolInfo(..),
    PoolMetadata(..),
    PoolRegistrationAction(..),
    PoolRelay(..),
    PoolStakeDistribution(..),
    PoolUpdate(..),
    PoolUpdateMetadata(..),
    POSIXMillis,
    Pot(..),
    Project(..),
    ProtocolParams(..),
    Quantity(..),
    RewardType(..),
    Script(..),
    ScriptCBOR(..),
    ScriptDatum(..),
    ScriptDatumCBOR(..),
    ScriptHash(..),
    ScriptHashList(..),
    ScriptJSON(..),
    ScriptRedeemer(..),
    ScriptType (..),
    ServerTime(..),
    Slot(..),
    SortOrder(..),
    StakeDistribution(..),
    ToLower,
    Transaction(..),
    TransactionDelegation(..),
    TransactionMetaCBOR(..),
    TransactionMetaJSON(..),
    TransactionMir(..),
    TransactionPoolRetiring(..),
    TransactionPoolUpdate(..),
    TransactionRedeemer(..),
    TransactionStake(..),
    TransactionUtxos(..),
    TransactionWithdrawal(..),
    TxEval(..),
    TxEvalBudget(..),
    TxEvalInput(..),
    TxHash(..),
    TxMeta,
    TxMetaCBOR(..),
    TxMetaJSON(..),
    URLVersion(..),
    UtxoInput(..),
    UtxoOutput(..),
    ValidationPurpose(..),

    mkAddress,
    unAddress,
    mkAssetId,
    unAssetId,
    mkBlockHash,
    unBlockHash,
    unEpoch,
    unEpochLength,
    mkPolicyId,
    unPolicyId,
    mkPoolId,
    unPoolId,
    millisecondsToPosix,
    posixToMilliseconds,
    unQuantity,
    unSlot,

    runBlockfrost,

    -- Client
    getRoot                             ,
    getHealth                           ,
    getClock                            ,
    getMetrics                          ,
    getMetricsEndpoints                 ,

    -- Client.NutLink
    nutlinkListAddress                  ,
    nutlinkListAddressTickers'          ,
    nutlinkListAddressTickers           ,
    nutlinkAddressTickers'              ,
    nutlinkAddressTickers               ,
    nutlinkTickers'                     ,
    nutlinkTickers                      ,

    -- Client.IPFS
    ipfsGateway                         ,
    ipfsPin                             ,
    ipfsListPins'                       ,
    ipfsListPins                        ,
    ipfsGetPin                          ,
    ipfsRemovePin                       ,

    -- Client.Cardano.Blocks
    getLatestBlock                      ,
    getLatestBlockTxs'                  ,
    getLatestBlockTxs                   ,
    getBlock                            ,
    getBlockSlot                        ,
    getBlockEpochSlot                   ,
    getNextBlocks'                      ,
    getNextBlocks                       ,
    getPreviousBlocks'                  ,
    getPreviousBlocks                   ,
    getBlockTxs'                        ,
    getBlockTxs                         ,
    getBlockAffectedAddresses'          ,
    getBlockAffectedAddresses           ,

    -- Client.Cardano.Network
    getNetworkInfo                      ,
    getNetworkEras                      ,

    -- Client.Cardano.Addresses
    getAddressInfo                      ,
    getAddressInfoExtended              ,
    getAddressDetails                   ,
    getAddressUtxos'                    ,
    getAddressUtxos                     ,
    getAddressUtxosAsset'               ,
    getAddressUtxosAsset                ,
    getAddressTransactions'             ,
    getAddressTransactions              ,

    -- Client.Cardano.Assets
    getAssets'                          ,
    getAssets                           ,
    getAssetDetails                     ,
    getAssetHistory'                    ,
    getAssetHistory                     ,
    getAssetTransactions'               ,
    getAssetTransactions                ,
    getAssetAddresses'                  ,
    getAssetAddresses                   ,
    getAssetsByPolicy'                  ,
    getAssetsByPolicy                   ,

    -- Client.Cardano.Scripts
    listScripts'                        ,
    listScripts                         ,
    getScript                           ,
    getScriptRedeemers'                 ,
    getScriptRedeemers                  ,
    getScriptDatum                      ,
    getScriptDatumCBOR                  ,
    getScriptJSON                       ,
    getScriptCBOR                       ,

    -- Client.Cardano.Epochs
    getLatestEpoch                      ,
    getLatestEpochProtocolParams        ,
    getEpoch                            ,
    getNextEpochs'                      ,
    getNextEpochs                       ,
    getPreviousEpochs'                  ,
    getPreviousEpochs                   ,
    getEpochStake'                      ,
    getEpochStake                       ,
    getEpochStakeByPool'                ,
    getEpochStakeByPool                 ,
    getEpochBlocks'                     ,
    getEpochBlocks                      ,
    getEpochBlocksByPool'               ,
    getEpochBlocksByPool                ,
    getEpochProtocolParams              ,

    -- Client.Cardano.Transactions
    getTx                               ,
    getTxUtxos                          ,
    getTxRedeemers                      ,
    getTxStakes                         ,
    getTxDelegations                    ,
    getTxWithdrawals                    ,
    getTxMirs                           ,
    getTxPoolUpdates                    ,
    getTxPoolRetiring                   ,
    getTxMetadataJSON                   ,
    getTxMetadataCBOR                   ,
    submitTx                            ,

    -- Client.Cardano.Ledger
    getLedgerGenesis                    ,

    -- Client.Cardano.Accounts
    getAccount                          ,
    getAccountRewards'                  ,
    getAccountRewards                   ,
    getAccountHistory'                  ,
    getAccountHistory                   ,
    getAccountDelegations'              ,
    getAccountDelegations               ,
    getAccountRegistrations'            ,
    getAccountRegistrations             ,
    getAccountWithdrawals'              ,
    getAccountWithdrawals               ,
    getAccountMirs'                     ,
    getAccountMirs                      ,
    getAccountAssociatedAddresses'      ,
    getAccountAssociatedAddresses       ,
    getAccountAssociatedAddressesTotal  ,
    getAccountAssociatedAssets'         ,
    getAccountAssociatedAssets          ,

    -- Client.Cardano.Pools
    listPools'                          ,
    listPools                           ,
    listPoolsExtended'                  ,
    listPoolsExtended                   ,
    listRetiredPools'                   ,
    listRetiredPools                    ,
    listRetiringPools'                  ,
    listRetiringPools                   ,
    getPool                             ,
    getPoolHistory'                     ,
    getPoolHistory                      ,
    getPoolMetadata                     ,
    getPoolRelays                       ,
    getPoolDelegators'                  ,
    getPoolDelegators                   ,
    getPoolBlocks'                      ,
    getPoolBlocks                       ,
    getPoolUpdates'                     ,
    getPoolUpdates                      ,

    -- Client.Cardano.Metadata
    getTxMetadataLabels'                ,
    getTxMetadataLabels                 ,
    getTxMetadataByLabelJSON'           ,
    getTxMetadataByLabelJSON            ,
    getTxMetadataByLabelCBOR'           ,
    getTxMetadataByLabelCBOR            ,

  ) where

import           Control.Monad
import           Data.Either
import           Data.Maybe
import           Data.Text
import           Prelude                                   (Integer)

import           Blockfrost.Client                         (BlockfrostError (..),
                                                            Paged (..),
                                                            Project (..),
                                                            SortOrder (..))
import           Blockfrost.Types.Cardano.Accounts
import           Blockfrost.Types.Cardano.Addresses
import           Blockfrost.Types.Cardano.Assets
import           Blockfrost.Types.Cardano.Blocks
import           Blockfrost.Types.Cardano.Epochs
import           Blockfrost.Types.Cardano.Genesis
import           Blockfrost.Types.Cardano.Metadata
import           Blockfrost.Types.Cardano.Network
import           Blockfrost.Types.Cardano.Pools
import           Blockfrost.Types.Cardano.Scripts
import           Blockfrost.Types.Cardano.Transactions
import           Blockfrost.Types.Cardano.Utils
import           Blockfrost.Types.Common
import           Blockfrost.Types.IPFS
import           Blockfrost.Types.NutLink
import           Blockfrost.Types.Shared.Ada
import           Blockfrost.Types.Shared.Address
import           Blockfrost.Types.Shared.Amount
import           Blockfrost.Types.Shared.AssetId
import           Blockfrost.Types.Shared.BlockHash
import           Blockfrost.Types.Shared.BlockIndex
import           Blockfrost.Types.Shared.CBOR
import           Blockfrost.Types.Shared.DatumHash
import           Blockfrost.Types.Shared.Epoch
import           Blockfrost.Types.Shared.Opts
import           Blockfrost.Types.Shared.PolicyId
import           Blockfrost.Types.Shared.PoolId
import           Blockfrost.Types.Shared.POSIXMillis
import           Blockfrost.Types.Shared.Quantity
import           Blockfrost.Types.Shared.ScriptHash
import           Blockfrost.Types.Shared.Slot
import           Blockfrost.Types.Shared.TxHash
import           Blockfrost.Types.Shared.ValidationPurpose
import           Polysemy
import           Polysemy.Blockfrost.Effect.Blockfrost     (Blockfrost,
                                                            runBlockfrost)
import qualified Polysemy.Blockfrost.Effect.Blockfrost     as BF
import           Polysemy.Error


-- Client
getRoot                             :: Member Blockfrost r => Member (Error BlockfrostError) r => Sem r URLVersion
getHealth                           :: Member Blockfrost r => Member (Error BlockfrostError) r => Sem r Healthy
getClock                            :: Member Blockfrost r => Member (Error BlockfrostError) r => Sem r ServerTime
getMetrics                          :: Member Blockfrost r => Member (Error BlockfrostError) r => Sem r [Metric]
getMetricsEndpoints                 :: Member Blockfrost r => Member (Error BlockfrostError) r => Sem r [(Text, Metric)]

-- Client.NutLink
nutlinkListAddress                  :: Member Blockfrost r => Member (Error BlockfrostError) r => Address -> Sem r NutlinkAddress
nutlinkListAddressTickers'          :: Member Blockfrost r => Member (Error BlockfrostError) r => Address -> Paged -> SortOrder -> Sem r [NutlinkAddressTicker]
nutlinkListAddressTickers           :: Member Blockfrost r => Member (Error BlockfrostError) r => Address -> Sem r [NutlinkAddressTicker]
nutlinkAddressTickers'              :: Member Blockfrost r => Member (Error BlockfrostError) r => Address -> Text -> Paged -> SortOrder -> Sem r [NutlinkTicker]
nutlinkAddressTickers               :: Member Blockfrost r => Member (Error BlockfrostError) r => Address -> Text -> Sem r [NutlinkTicker]
nutlinkTickers'                     :: Member Blockfrost r => Member (Error BlockfrostError) r => Text -> Paged -> SortOrder -> Sem r [(Address, NutlinkTicker)]
nutlinkTickers                      :: Member Blockfrost r => Member (Error BlockfrostError) r => Text -> Sem r [(Address, NutlinkTicker)]

-- Client.IPFS
ipfsGateway                         :: Member Blockfrost r => Member (Error BlockfrostError) r => Text -> Sem r IPFSData
ipfsPin                             :: Member Blockfrost r => Member (Error BlockfrostError) r => Text -> Sem r IPFSPinChange
ipfsListPins'                       :: Member Blockfrost r => Member (Error BlockfrostError) r => Paged -> SortOrder -> Sem r [IPFSPin]
ipfsListPins                        :: Member Blockfrost r => Member (Error BlockfrostError) r => Sem r [IPFSPin]
ipfsGetPin                          :: Member Blockfrost r => Member (Error BlockfrostError) r => Text -> Sem r IPFSPin
ipfsRemovePin                       :: Member Blockfrost r => Member (Error BlockfrostError) r => Text -> Sem r IPFSPinChange

-- Client.Cardano.Blocks
getLatestBlock                      :: Member Blockfrost r => Member (Error BlockfrostError) r => Sem r Block
getLatestBlockTxs'                  :: Member Blockfrost r => Member (Error BlockfrostError) r => Paged -> SortOrder -> Sem r [TxHash]
getLatestBlockTxs                   :: Member Blockfrost r => Member (Error BlockfrostError) r => Sem r [TxHash]
getBlock                            :: Member Blockfrost r => Member (Error BlockfrostError) r => Either Integer BlockHash -> Sem r Block
getBlockSlot                        :: Member Blockfrost r => Member (Error BlockfrostError) r => Slot -> Sem r Block
getBlockEpochSlot                   :: Member Blockfrost r => Member (Error BlockfrostError) r => Epoch -> Slot -> Sem r Block
getNextBlocks'                      :: Member Blockfrost r => Member (Error BlockfrostError) r => Either Integer BlockHash -> Paged -> Sem r [Block]
getNextBlocks                       :: Member Blockfrost r => Member (Error BlockfrostError) r => Either Integer BlockHash -> Sem r [Block]
getPreviousBlocks'                  :: Member Blockfrost r => Member (Error BlockfrostError) r => Either Integer BlockHash -> Paged -> Sem r [Block]
getPreviousBlocks                   :: Member Blockfrost r => Member (Error BlockfrostError) r => Either Integer BlockHash -> Sem r [Block]
getBlockTxs'                        :: Member Blockfrost r => Member (Error BlockfrostError) r => Either Integer BlockHash -> Paged -> SortOrder -> Sem r [TxHash]
getBlockTxs                         :: Member Blockfrost r => Member (Error BlockfrostError) r => Either Integer BlockHash -> Sem r [TxHash]
getBlockAffectedAddresses'          :: Member Blockfrost r => Member (Error BlockfrostError) r => Either Integer BlockHash -> Paged -> Sem r [(Address, [TxHash])]
getBlockAffectedAddresses           :: Member Blockfrost r => Member (Error BlockfrostError) r => Either Integer BlockHash -> Sem r [(Address, [TxHash])]

-- Client.Cardano.Network
getNetworkInfo                      :: Member Blockfrost r => Member (Error BlockfrostError) r => Sem r Network
getNetworkEras                      :: Member Blockfrost r => Member (Error BlockfrostError) r => Sem r [NetworkEraSummary]

-- Client.Cardano.Addresses
getAddressInfo                      :: Member Blockfrost r => Member (Error BlockfrostError) r => Address -> Sem r AddressInfo
getAddressInfoExtended              :: Member Blockfrost r => Member (Error BlockfrostError) r => Address -> Sem r AddressInfoExtended
getAddressDetails                   :: Member Blockfrost r => Member (Error BlockfrostError) r => Address -> Sem r AddressDetails
getAddressUtxos'                    :: Member Blockfrost r => Member (Error BlockfrostError) r => Address -> Paged -> SortOrder -> Sem r [AddressUtxo]
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
getAssets'                          :: Member Blockfrost r => Member (Error BlockfrostError) r => Paged -> SortOrder -> Sem r [AssetInfo]
getAssets                           :: Member Blockfrost r => Member (Error BlockfrostError) r => Sem r [AssetInfo]
getAssetDetails                     :: Member Blockfrost r => Member (Error BlockfrostError) r => AssetId -> Sem r AssetDetails
getAssetHistory'                    :: Member Blockfrost r => Member (Error BlockfrostError) r => AssetId -> Paged -> SortOrder -> Sem r [AssetHistory]
getAssetHistory                     :: Member Blockfrost r => Member (Error BlockfrostError) r => AssetId -> Sem r [AssetHistory]
getAssetTransactions'               :: Member Blockfrost r => Member (Error BlockfrostError) r => AssetId -> Paged -> SortOrder -> Sem r [AssetTransaction]
getAssetTransactions                :: Member Blockfrost r => Member (Error BlockfrostError) r => AssetId -> Sem r [AssetTransaction]
getAssetAddresses'                  :: Member Blockfrost r => Member (Error BlockfrostError) r => AssetId -> Paged -> SortOrder -> Sem r [AssetAddress]
getAssetAddresses                   :: Member Blockfrost r => Member (Error BlockfrostError) r => AssetId -> Sem r [AssetAddress]
getAssetsByPolicy'                  :: Member Blockfrost r => Member (Error BlockfrostError) r => PolicyId -> Paged -> SortOrder -> Sem r [AssetInfo]
getAssetsByPolicy                   :: Member Blockfrost r => Member (Error BlockfrostError) r => PolicyId -> Sem r [AssetInfo]

-- Client.Cardano.Scripts
listScripts'                        :: Member Blockfrost r => Member (Error BlockfrostError) r => Paged -> SortOrder -> Sem r ScriptHashList
listScripts                         :: Member Blockfrost r => Member (Error BlockfrostError) r => Sem r ScriptHashList
getScript                           :: Member Blockfrost r => Member (Error BlockfrostError) r => ScriptHash -> Sem r Script
getScriptRedeemers'                 :: Member Blockfrost r => Member (Error BlockfrostError) r => ScriptHash -> Paged -> SortOrder -> Sem r [ScriptRedeemer]
getScriptRedeemers                  :: Member Blockfrost r => Member (Error BlockfrostError) r => ScriptHash -> Sem r [ScriptRedeemer]
getScriptDatum                      :: Member Blockfrost r => Member (Error BlockfrostError) r => DatumHash -> Sem r ScriptDatum
getScriptDatumCBOR                  :: Member Blockfrost r => Member (Error BlockfrostError) r => DatumHash -> Sem r ScriptDatumCBOR
getScriptJSON                       :: Member Blockfrost r => Member (Error BlockfrostError) r => ScriptHash -> Sem r ScriptJSON
getScriptCBOR                       :: Member Blockfrost r => Member (Error BlockfrostError) r => ScriptHash -> Sem r ScriptCBOR

-- Client.Cardano.Epochs
getLatestEpoch                      :: Member Blockfrost r => Member (Error BlockfrostError) r => Sem r EpochInfo
getLatestEpochProtocolParams        :: Member Blockfrost r => Member (Error BlockfrostError) r => Sem r ProtocolParams
getEpoch                            :: Member Blockfrost r => Member (Error BlockfrostError) r => Epoch -> Sem r EpochInfo
getNextEpochs'                      :: Member Blockfrost r => Member (Error BlockfrostError) r => Epoch -> Paged -> Sem r [EpochInfo]
getNextEpochs                       :: Member Blockfrost r => Member (Error BlockfrostError) r => Epoch -> Sem r [EpochInfo]
getPreviousEpochs'                  :: Member Blockfrost r => Member (Error BlockfrostError) r => Epoch -> Paged -> Sem r [EpochInfo]
getPreviousEpochs                   :: Member Blockfrost r => Member (Error BlockfrostError) r => Epoch -> Sem r [EpochInfo]
getEpochStake'                      :: Member Blockfrost r => Member (Error BlockfrostError) r => Epoch -> Paged -> Sem r [StakeDistribution]
getEpochStake                       :: Member Blockfrost r => Member (Error BlockfrostError) r => Epoch -> Sem r [StakeDistribution]
getEpochStakeByPool'                :: Member Blockfrost r => Member (Error BlockfrostError) r => Epoch -> PoolId -> Paged -> Sem r [PoolStakeDistribution]
getEpochStakeByPool                 :: Member Blockfrost r => Member (Error BlockfrostError) r => Epoch -> PoolId -> Sem r [PoolStakeDistribution]
getEpochBlocks'                     :: Member Blockfrost r => Member (Error BlockfrostError) r => Epoch -> Paged -> SortOrder -> Sem r [BlockHash]
getEpochBlocks                      :: Member Blockfrost r => Member (Error BlockfrostError) r => Epoch -> Sem r [BlockHash]
getEpochBlocksByPool'               :: Member Blockfrost r => Member (Error BlockfrostError) r => Epoch -> PoolId -> Paged -> SortOrder -> Sem r [BlockHash]
getEpochBlocksByPool                :: Member Blockfrost r => Member (Error BlockfrostError) r => Epoch -> PoolId -> Sem r [BlockHash]
getEpochProtocolParams              :: Member Blockfrost r => Member (Error BlockfrostError) r => Epoch -> Sem r ProtocolParams

-- Client.Cardano.Transactions
getTx                               :: Member Blockfrost r => Member (Error BlockfrostError) r => TxHash -> Sem r Transaction
getTxUtxos                          :: Member Blockfrost r => Member (Error BlockfrostError) r => TxHash -> Sem r TransactionUtxos
getTxRedeemers                      :: Member Blockfrost r => Member (Error BlockfrostError) r => TxHash -> Sem r [TransactionRedeemer]
getTxStakes                         :: Member Blockfrost r => Member (Error BlockfrostError) r => TxHash -> Sem r [TransactionStake]
getTxDelegations                    :: Member Blockfrost r => Member (Error BlockfrostError) r => TxHash -> Sem r [TransactionDelegation]
getTxWithdrawals                    :: Member Blockfrost r => Member (Error BlockfrostError) r => TxHash -> Sem r [TransactionWithdrawal]
getTxMirs                           :: Member Blockfrost r => Member (Error BlockfrostError) r => TxHash -> Sem r [TransactionMir]
getTxPoolUpdates                    :: Member Blockfrost r => Member (Error BlockfrostError) r => TxHash -> Sem r [TransactionPoolUpdate]
getTxPoolRetiring                   :: Member Blockfrost r => Member (Error BlockfrostError) r => TxHash -> Sem r [TransactionPoolRetiring]
getTxMetadataJSON                   :: Member Blockfrost r => Member (Error BlockfrostError) r => TxHash -> Sem r [TransactionMetaJSON]
getTxMetadataCBOR                   :: Member Blockfrost r => Member (Error BlockfrostError) r => TxHash -> Sem r [TransactionMetaCBOR]
submitTx                            :: Member Blockfrost r => Member (Error BlockfrostError) r => CBORString -> Sem r TxHash

-- Client.Cardano.Ledger
getLedgerGenesis                    :: Member Blockfrost r => Member (Error BlockfrostError) r => Sem r Genesis

-- Client.Cardano.Accounts
getAccount                          :: Member Blockfrost r => Member (Error BlockfrostError) r => Address -> Sem r AccountInfo
getAccountRewards'                  :: Member Blockfrost r => Member (Error BlockfrostError) r => Address -> Paged -> SortOrder -> Sem r [AccountReward]
getAccountRewards                   :: Member Blockfrost r => Member (Error BlockfrostError) r => Address -> Sem r [AccountReward]
getAccountHistory'                  :: Member Blockfrost r => Member (Error BlockfrostError) r => Address -> Paged -> SortOrder -> Sem r [AccountHistory]
getAccountHistory                   :: Member Blockfrost r => Member (Error BlockfrostError) r => Address -> Sem r [AccountHistory]
getAccountDelegations'              :: Member Blockfrost r => Member (Error BlockfrostError) r => Address -> Paged -> SortOrder -> Sem r [AccountDelegation]
getAccountDelegations               :: Member Blockfrost r => Member (Error BlockfrostError) r => Address -> Sem r [AccountDelegation]
getAccountRegistrations'            :: Member Blockfrost r => Member (Error BlockfrostError) r => Address -> Paged -> SortOrder -> Sem r [AccountRegistration]
getAccountRegistrations             :: Member Blockfrost r => Member (Error BlockfrostError) r => Address -> Sem r [AccountRegistration]
getAccountWithdrawals'              :: Member Blockfrost r => Member (Error BlockfrostError) r => Address -> Paged -> SortOrder -> Sem r [AccountWithdrawal]
getAccountWithdrawals               :: Member Blockfrost r => Member (Error BlockfrostError) r => Address -> Sem r [AccountWithdrawal]
getAccountMirs'                     :: Member Blockfrost r => Member (Error BlockfrostError) r => Address -> Paged -> SortOrder -> Sem r [AccountMir]
getAccountMirs                      :: Member Blockfrost r => Member (Error BlockfrostError) r => Address -> Sem r [AccountMir]
getAccountAssociatedAddresses'      :: Member Blockfrost r => Member (Error BlockfrostError) r => Address -> Paged -> SortOrder -> Sem r [AddressAssociated]
getAccountAssociatedAddresses       :: Member Blockfrost r => Member (Error BlockfrostError) r => Address -> Sem r [AddressAssociated]
getAccountAssociatedAddressesTotal  :: Member Blockfrost r => Member (Error BlockfrostError) r => Address -> Sem r AddressAssociatedTotal
getAccountAssociatedAssets'         :: Member Blockfrost r => Member (Error BlockfrostError) r => Address -> Paged -> SortOrder -> Sem r [Amount]
getAccountAssociatedAssets          :: Member Blockfrost r => Member (Error BlockfrostError) r => Address -> Sem r [Amount]

-- Client.Cardano.Pools
listPools'                          :: Member Blockfrost r => Member (Error BlockfrostError) r => Paged -> SortOrder -> Sem r [PoolId]
listPools                           :: Member Blockfrost r => Member (Error BlockfrostError) r => Sem r [PoolId]
listPoolsExtended'                  :: Member Blockfrost r => Member (Error BlockfrostError) r => Paged -> SortOrder -> Sem r [Pool]
listPoolsExtended                   :: Member Blockfrost r => Member (Error BlockfrostError) r => Sem r [Pool]
listRetiredPools'                   :: Member Blockfrost r => Member (Error BlockfrostError) r => Paged -> SortOrder -> Sem r [PoolEpoch]
listRetiredPools                    :: Member Blockfrost r => Member (Error BlockfrostError) r => Sem r [PoolEpoch]
listRetiringPools'                  :: Member Blockfrost r => Member (Error BlockfrostError) r => Paged -> SortOrder -> Sem r [PoolEpoch]
listRetiringPools                   :: Member Blockfrost r => Member (Error BlockfrostError) r => Sem r [PoolEpoch]
getPool                             :: Member Blockfrost r => Member (Error BlockfrostError) r => PoolId -> Sem r PoolInfo
getPoolHistory'                     :: Member Blockfrost r => Member (Error BlockfrostError) r => PoolId -> Paged -> SortOrder -> Sem r [PoolHistory]
getPoolHistory                      :: Member Blockfrost r => Member (Error BlockfrostError) r => PoolId -> Sem r [PoolHistory]
getPoolMetadata                     :: Member Blockfrost r => Member (Error BlockfrostError) r => PoolId -> Sem r (Maybe PoolMetadata)
getPoolRelays                       :: Member Blockfrost r => Member (Error BlockfrostError) r => PoolId -> Sem r [PoolRelay]
getPoolDelegators'                  :: Member Blockfrost r => Member (Error BlockfrostError) r => PoolId -> Paged -> SortOrder -> Sem r [PoolDelegator]
getPoolDelegators                   :: Member Blockfrost r => Member (Error BlockfrostError) r => PoolId -> Sem r [PoolDelegator]
getPoolBlocks'                      :: Member Blockfrost r => Member (Error BlockfrostError) r => PoolId -> Paged -> SortOrder -> Sem r [BlockHash]
getPoolBlocks                       :: Member Blockfrost r => Member (Error BlockfrostError) r => PoolId -> Sem r [BlockHash]
getPoolUpdates'                     :: Member Blockfrost r => Member (Error BlockfrostError) r => PoolId -> Paged -> SortOrder -> Sem r [PoolUpdate]
getPoolUpdates                      :: Member Blockfrost r => Member (Error BlockfrostError) r => PoolId -> Sem r [PoolUpdate]

-- Client.Cardano.Metadata
getTxMetadataLabels'                :: Member Blockfrost r => Member (Error BlockfrostError) r => Paged -> SortOrder -> Sem r [TxMeta]
getTxMetadataLabels                 :: Member Blockfrost r => Member (Error BlockfrostError) r => Sem r [TxMeta]
getTxMetadataByLabelJSON'           :: Member Blockfrost r => Member (Error BlockfrostError) r => Text -> Paged -> SortOrder -> Sem r [TxMetaJSON]
getTxMetadataByLabelJSON            :: Member Blockfrost r => Member (Error BlockfrostError) r => Text -> Sem r [TxMetaJSON]
getTxMetadataByLabelCBOR'           :: Member Blockfrost r => Member (Error BlockfrostError) r => Text -> Paged -> SortOrder -> Sem r [TxMetaCBOR]
getTxMetadataByLabelCBOR            :: Member Blockfrost r => Member (Error BlockfrostError) r => Text -> Sem r [TxMetaCBOR]


-- Client
getRoot :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Sem r URLVersion
getRoot                                     = Either BlockfrostError URLVersion -> Sem r URLVersion
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError URLVersion -> Sem r URLVersion)
-> Sem r (Either BlockfrostError URLVersion) -> Sem r URLVersion
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Sem r (Either BlockfrostError URLVersion)
forall (r :: EffectRow).
Member Blockfrost r =>
Sem r (Either BlockfrostError URLVersion)
BF.getRoot
getHealth :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Sem r Healthy
getHealth                                   = Either BlockfrostError Healthy -> Sem r Healthy
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError Healthy -> Sem r Healthy)
-> Sem r (Either BlockfrostError Healthy) -> Sem r Healthy
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Sem r (Either BlockfrostError Healthy)
forall (r :: EffectRow).
Member Blockfrost r =>
Sem r (Either BlockfrostError Healthy)
BF.getHealth
getClock :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Sem r ServerTime
getClock                                    = Either BlockfrostError ServerTime -> Sem r ServerTime
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError ServerTime -> Sem r ServerTime)
-> Sem r (Either BlockfrostError ServerTime) -> Sem r ServerTime
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Sem r (Either BlockfrostError ServerTime)
forall (r :: EffectRow).
Member Blockfrost r =>
Sem r (Either BlockfrostError ServerTime)
BF.getClock
getMetrics :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Sem r [Metric]
getMetrics                                  = Either BlockfrostError [Metric] -> Sem r [Metric]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [Metric] -> Sem r [Metric])
-> Sem r (Either BlockfrostError [Metric]) -> Sem r [Metric]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Sem r (Either BlockfrostError [Metric])
forall (r :: EffectRow).
Member Blockfrost r =>
Sem r (Either BlockfrostError [Metric])
BF.getMetrics
getMetricsEndpoints :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Sem r [(Text, Metric)]
getMetricsEndpoints                         = Either BlockfrostError [(Text, Metric)] -> Sem r [(Text, Metric)]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [(Text, Metric)] -> Sem r [(Text, Metric)])
-> Sem r (Either BlockfrostError [(Text, Metric)])
-> Sem r [(Text, Metric)]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Sem r (Either BlockfrostError [(Text, Metric)])
forall (r :: EffectRow).
Member Blockfrost r =>
Sem r (Either BlockfrostError [(Text, Metric)])
BF.getMetricsEndpoints

-- Client.NutLink
nutlinkListAddress :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Address -> Sem r NutlinkAddress
nutlinkListAddress                 Address
a        = Either BlockfrostError NutlinkAddress -> Sem r NutlinkAddress
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError NutlinkAddress -> Sem r NutlinkAddress)
-> Sem r (Either BlockfrostError NutlinkAddress)
-> Sem r NutlinkAddress
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Address -> Sem r (Either BlockfrostError NutlinkAddress)
forall (r :: EffectRow).
Member Blockfrost r =>
Address -> Sem r (Either BlockfrostError NutlinkAddress)
BF.nutlinkListAddress                 Address
a
nutlinkListAddressTickers' :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Address -> Paged -> SortOrder -> Sem r [NutlinkAddressTicker]
nutlinkListAddressTickers'         Address
a Paged
b SortOrder
c    = Either BlockfrostError [NutlinkAddressTicker]
-> Sem r [NutlinkAddressTicker]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [NutlinkAddressTicker]
 -> Sem r [NutlinkAddressTicker])
-> Sem r (Either BlockfrostError [NutlinkAddressTicker])
-> Sem r [NutlinkAddressTicker]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Address
-> Paged
-> SortOrder
-> Sem r (Either BlockfrostError [NutlinkAddressTicker])
forall (r :: EffectRow).
Member Blockfrost r =>
Address
-> Paged
-> SortOrder
-> Sem r (Either BlockfrostError [NutlinkAddressTicker])
BF.nutlinkListAddressTickers'         Address
a Paged
b SortOrder
c
nutlinkListAddressTickers :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Address -> Sem r [NutlinkAddressTicker]
nutlinkListAddressTickers          Address
a        = Either BlockfrostError [NutlinkAddressTicker]
-> Sem r [NutlinkAddressTicker]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [NutlinkAddressTicker]
 -> Sem r [NutlinkAddressTicker])
-> Sem r (Either BlockfrostError [NutlinkAddressTicker])
-> Sem r [NutlinkAddressTicker]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Address -> Sem r (Either BlockfrostError [NutlinkAddressTicker])
forall (r :: EffectRow).
Member Blockfrost r =>
Address -> Sem r (Either BlockfrostError [NutlinkAddressTicker])
BF.nutlinkListAddressTickers          Address
a
nutlinkAddressTickers' :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Address -> Text -> Paged -> SortOrder -> Sem r [NutlinkTicker]
nutlinkAddressTickers'             Address
a Text
b Paged
c SortOrder
d  = Either BlockfrostError [NutlinkTicker] -> Sem r [NutlinkTicker]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [NutlinkTicker] -> Sem r [NutlinkTicker])
-> Sem r (Either BlockfrostError [NutlinkTicker])
-> Sem r [NutlinkTicker]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Address
-> Text
-> Paged
-> SortOrder
-> Sem r (Either BlockfrostError [NutlinkTicker])
forall (r :: EffectRow).
Member Blockfrost r =>
Address
-> Text
-> Paged
-> SortOrder
-> Sem r (Either BlockfrostError [NutlinkTicker])
BF.nutlinkAddressTickers'             Address
a Text
b Paged
c SortOrder
d
nutlinkAddressTickers :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Address -> Text -> Sem r [NutlinkTicker]
nutlinkAddressTickers              Address
a Text
b      = Either BlockfrostError [NutlinkTicker] -> Sem r [NutlinkTicker]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [NutlinkTicker] -> Sem r [NutlinkTicker])
-> Sem r (Either BlockfrostError [NutlinkTicker])
-> Sem r [NutlinkTicker]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Address -> Text -> Sem r (Either BlockfrostError [NutlinkTicker])
forall (r :: EffectRow).
Member Blockfrost r =>
Address -> Text -> Sem r (Either BlockfrostError [NutlinkTicker])
BF.nutlinkAddressTickers              Address
a Text
b
nutlinkTickers' :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Text -> Paged -> SortOrder -> Sem r [(Address, NutlinkTicker)]
nutlinkTickers'                    Text
a Paged
b SortOrder
c    = Either BlockfrostError [(Address, NutlinkTicker)]
-> Sem r [(Address, NutlinkTicker)]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [(Address, NutlinkTicker)]
 -> Sem r [(Address, NutlinkTicker)])
-> Sem r (Either BlockfrostError [(Address, NutlinkTicker)])
-> Sem r [(Address, NutlinkTicker)]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Text
-> Paged
-> SortOrder
-> Sem r (Either BlockfrostError [(Address, NutlinkTicker)])
forall (r :: EffectRow).
Member Blockfrost r =>
Text
-> Paged
-> SortOrder
-> Sem r (Either BlockfrostError [(Address, NutlinkTicker)])
BF.nutlinkTickers'                    Text
a Paged
b SortOrder
c
nutlinkTickers :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Text -> Sem r [(Address, NutlinkTicker)]
nutlinkTickers                     Text
a        = Either BlockfrostError [(Address, NutlinkTicker)]
-> Sem r [(Address, NutlinkTicker)]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [(Address, NutlinkTicker)]
 -> Sem r [(Address, NutlinkTicker)])
-> Sem r (Either BlockfrostError [(Address, NutlinkTicker)])
-> Sem r [(Address, NutlinkTicker)]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Text -> Sem r (Either BlockfrostError [(Address, NutlinkTicker)])
forall (r :: EffectRow).
Member Blockfrost r =>
Text -> Sem r (Either BlockfrostError [(Address, NutlinkTicker)])
BF.nutlinkTickers                     Text
a

-- -- Client.IPFS
ipfsGateway :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Text -> Sem r IPFSData
ipfsGateway                        Text
a        = Either BlockfrostError IPFSData -> Sem r IPFSData
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError IPFSData -> Sem r IPFSData)
-> Sem r (Either BlockfrostError IPFSData) -> Sem r IPFSData
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Text -> Sem r (Either BlockfrostError IPFSData)
forall (r :: EffectRow).
Member Blockfrost r =>
Text -> Sem r (Either BlockfrostError IPFSData)
BF.ipfsGateway                        Text
a
ipfsPin :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Text -> Sem r IPFSPinChange
ipfsPin                            Text
a        = Either BlockfrostError IPFSPinChange -> Sem r IPFSPinChange
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError IPFSPinChange -> Sem r IPFSPinChange)
-> Sem r (Either BlockfrostError IPFSPinChange)
-> Sem r IPFSPinChange
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Text -> Sem r (Either BlockfrostError IPFSPinChange)
forall (r :: EffectRow).
Member Blockfrost r =>
Text -> Sem r (Either BlockfrostError IPFSPinChange)
BF.ipfsPin                            Text
a
ipfsListPins' :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Paged -> SortOrder -> Sem r [IPFSPin]
ipfsListPins'                      Paged
a SortOrder
b      = Either BlockfrostError [IPFSPin] -> Sem r [IPFSPin]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [IPFSPin] -> Sem r [IPFSPin])
-> Sem r (Either BlockfrostError [IPFSPin]) -> Sem r [IPFSPin]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Paged -> SortOrder -> Sem r (Either BlockfrostError [IPFSPin])
forall (r :: EffectRow).
Member Blockfrost r =>
Paged -> SortOrder -> Sem r (Either BlockfrostError [IPFSPin])
BF.ipfsListPins'                      Paged
a SortOrder
b
ipfsListPins :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Sem r [IPFSPin]
ipfsListPins                                = Either BlockfrostError [IPFSPin] -> Sem r [IPFSPin]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [IPFSPin] -> Sem r [IPFSPin])
-> Sem r (Either BlockfrostError [IPFSPin]) -> Sem r [IPFSPin]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Sem r (Either BlockfrostError [IPFSPin])
forall (r :: EffectRow).
Member Blockfrost r =>
Sem r (Either BlockfrostError [IPFSPin])
BF.ipfsListPins
ipfsGetPin :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Text -> Sem r IPFSPin
ipfsGetPin                         Text
a        = Either BlockfrostError IPFSPin -> Sem r IPFSPin
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError IPFSPin -> Sem r IPFSPin)
-> Sem r (Either BlockfrostError IPFSPin) -> Sem r IPFSPin
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Text -> Sem r (Either BlockfrostError IPFSPin)
forall (r :: EffectRow).
Member Blockfrost r =>
Text -> Sem r (Either BlockfrostError IPFSPin)
BF.ipfsGetPin                         Text
a
ipfsRemovePin :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Text -> Sem r IPFSPinChange
ipfsRemovePin                      Text
a        = Either BlockfrostError IPFSPinChange -> Sem r IPFSPinChange
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError IPFSPinChange -> Sem r IPFSPinChange)
-> Sem r (Either BlockfrostError IPFSPinChange)
-> Sem r IPFSPinChange
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Text -> Sem r (Either BlockfrostError IPFSPinChange)
forall (r :: EffectRow).
Member Blockfrost r =>
Text -> Sem r (Either BlockfrostError IPFSPinChange)
BF.ipfsRemovePin                      Text
a

-- Client.Cardano.Blocks
getLatestBlock :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Sem r Block
getLatestBlock                              = Either BlockfrostError Block -> Sem r Block
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError Block -> Sem r Block)
-> Sem r (Either BlockfrostError Block) -> Sem r Block
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Sem r (Either BlockfrostError Block)
forall (r :: EffectRow).
Member Blockfrost r =>
Sem r (Either BlockfrostError Block)
BF.getLatestBlock
getLatestBlockTxs' :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Paged -> SortOrder -> Sem r [TxHash]
getLatestBlockTxs'                 Paged
a SortOrder
b      = Either BlockfrostError [TxHash] -> Sem r [TxHash]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [TxHash] -> Sem r [TxHash])
-> Sem r (Either BlockfrostError [TxHash]) -> Sem r [TxHash]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Paged -> SortOrder -> Sem r (Either BlockfrostError [TxHash])
forall (r :: EffectRow).
Member Blockfrost r =>
Paged -> SortOrder -> Sem r (Either BlockfrostError [TxHash])
BF.getLatestBlockTxs'                 Paged
a SortOrder
b
getLatestBlockTxs :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Sem r [TxHash]
getLatestBlockTxs                           = Either BlockfrostError [TxHash] -> Sem r [TxHash]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [TxHash] -> Sem r [TxHash])
-> Sem r (Either BlockfrostError [TxHash]) -> Sem r [TxHash]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Sem r (Either BlockfrostError [TxHash])
forall (r :: EffectRow).
Member Blockfrost r =>
Sem r (Either BlockfrostError [TxHash])
BF.getLatestBlockTxs
getBlock :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Either Integer BlockHash -> Sem r Block
getBlock Either Integer BlockHash
a                                  = Either BlockfrostError Block -> Sem r Block
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError Block -> Sem r Block)
-> Sem r (Either BlockfrostError Block) -> Sem r Block
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Either Integer BlockHash -> Sem r (Either BlockfrostError Block)
forall (r :: EffectRow).
Member Blockfrost r =>
Either Integer BlockHash -> Sem r (Either BlockfrostError Block)
BF.getBlock Either Integer BlockHash
a
getBlockSlot :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Slot -> Sem r Block
getBlockSlot                       Slot
a        = Either BlockfrostError Block -> Sem r Block
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError Block -> Sem r Block)
-> Sem r (Either BlockfrostError Block) -> Sem r Block
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Slot -> Sem r (Either BlockfrostError Block)
forall (r :: EffectRow).
Member Blockfrost r =>
Slot -> Sem r (Either BlockfrostError Block)
BF.getBlockSlot                       Slot
a
getBlockEpochSlot :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Epoch -> Slot -> Sem r Block
getBlockEpochSlot                  Epoch
a Slot
b      = Either BlockfrostError Block -> Sem r Block
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError Block -> Sem r Block)
-> Sem r (Either BlockfrostError Block) -> Sem r Block
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Epoch -> Slot -> Sem r (Either BlockfrostError Block)
forall (r :: EffectRow).
Member Blockfrost r =>
Epoch -> Slot -> Sem r (Either BlockfrostError Block)
BF.getBlockEpochSlot                  Epoch
a Slot
b
getNextBlocks' :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Either Integer BlockHash -> Paged -> Sem r [Block]
getNextBlocks'                     Either Integer BlockHash
a Paged
b      = Either BlockfrostError [Block] -> Sem r [Block]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [Block] -> Sem r [Block])
-> Sem r (Either BlockfrostError [Block]) -> Sem r [Block]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Either Integer BlockHash
-> Paged -> Sem r (Either BlockfrostError [Block])
forall (r :: EffectRow).
Member Blockfrost r =>
Either Integer BlockHash
-> Paged -> Sem r (Either BlockfrostError [Block])
BF.getNextBlocks'                     Either Integer BlockHash
a Paged
b
getNextBlocks :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Either Integer BlockHash -> Sem r [Block]
getNextBlocks                      Either Integer BlockHash
a        = Either BlockfrostError [Block] -> Sem r [Block]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [Block] -> Sem r [Block])
-> Sem r (Either BlockfrostError [Block]) -> Sem r [Block]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Either Integer BlockHash -> Sem r (Either BlockfrostError [Block])
forall (r :: EffectRow).
Member Blockfrost r =>
Either Integer BlockHash -> Sem r (Either BlockfrostError [Block])
BF.getNextBlocks                      Either Integer BlockHash
a
getPreviousBlocks' :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Either Integer BlockHash -> Paged -> Sem r [Block]
getPreviousBlocks'                 Either Integer BlockHash
a Paged
b      = Either BlockfrostError [Block] -> Sem r [Block]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [Block] -> Sem r [Block])
-> Sem r (Either BlockfrostError [Block]) -> Sem r [Block]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Either Integer BlockHash
-> Paged -> Sem r (Either BlockfrostError [Block])
forall (r :: EffectRow).
Member Blockfrost r =>
Either Integer BlockHash
-> Paged -> Sem r (Either BlockfrostError [Block])
BF.getPreviousBlocks'                 Either Integer BlockHash
a Paged
b
getPreviousBlocks :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Either Integer BlockHash -> Sem r [Block]
getPreviousBlocks                  Either Integer BlockHash
a        = Either BlockfrostError [Block] -> Sem r [Block]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [Block] -> Sem r [Block])
-> Sem r (Either BlockfrostError [Block]) -> Sem r [Block]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Either Integer BlockHash -> Sem r (Either BlockfrostError [Block])
forall (r :: EffectRow).
Member Blockfrost r =>
Either Integer BlockHash -> Sem r (Either BlockfrostError [Block])
BF.getPreviousBlocks                  Either Integer BlockHash
a
getBlockTxs' :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Either Integer BlockHash -> Paged -> SortOrder -> Sem r [TxHash]
getBlockTxs'                       Either Integer BlockHash
a Paged
b SortOrder
c    = Either BlockfrostError [TxHash] -> Sem r [TxHash]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [TxHash] -> Sem r [TxHash])
-> Sem r (Either BlockfrostError [TxHash]) -> Sem r [TxHash]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Either Integer BlockHash
-> Paged -> SortOrder -> Sem r (Either BlockfrostError [TxHash])
forall (r :: EffectRow).
Member Blockfrost r =>
Either Integer BlockHash
-> Paged -> SortOrder -> Sem r (Either BlockfrostError [TxHash])
BF.getBlockTxs'                       Either Integer BlockHash
a Paged
b SortOrder
c
getBlockTxs :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Either Integer BlockHash -> Sem r [TxHash]
getBlockTxs                        Either Integer BlockHash
a        = Either BlockfrostError [TxHash] -> Sem r [TxHash]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [TxHash] -> Sem r [TxHash])
-> Sem r (Either BlockfrostError [TxHash]) -> Sem r [TxHash]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Either Integer BlockHash -> Sem r (Either BlockfrostError [TxHash])
forall (r :: EffectRow).
Member Blockfrost r =>
Either Integer BlockHash -> Sem r (Either BlockfrostError [TxHash])
BF.getBlockTxs                        Either Integer BlockHash
a
getBlockAffectedAddresses' :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Either Integer BlockHash -> Paged -> Sem r [(Address, [TxHash])]
getBlockAffectedAddresses'         Either Integer BlockHash
a Paged
b      = Either BlockfrostError [(Address, [TxHash])]
-> Sem r [(Address, [TxHash])]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [(Address, [TxHash])]
 -> Sem r [(Address, [TxHash])])
-> Sem r (Either BlockfrostError [(Address, [TxHash])])
-> Sem r [(Address, [TxHash])]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Either Integer BlockHash
-> Paged -> Sem r (Either BlockfrostError [(Address, [TxHash])])
forall (r :: EffectRow).
Member Blockfrost r =>
Either Integer BlockHash
-> Paged -> Sem r (Either BlockfrostError [(Address, [TxHash])])
BF.getBlockAffectedAddresses'         Either Integer BlockHash
a Paged
b
getBlockAffectedAddresses :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Either Integer BlockHash -> Sem r [(Address, [TxHash])]
getBlockAffectedAddresses          Either Integer BlockHash
a        = Either BlockfrostError [(Address, [TxHash])]
-> Sem r [(Address, [TxHash])]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [(Address, [TxHash])]
 -> Sem r [(Address, [TxHash])])
-> Sem r (Either BlockfrostError [(Address, [TxHash])])
-> Sem r [(Address, [TxHash])]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Either Integer BlockHash
-> Sem r (Either BlockfrostError [(Address, [TxHash])])
forall (r :: EffectRow).
Member Blockfrost r =>
Either Integer BlockHash
-> Sem r (Either BlockfrostError [(Address, [TxHash])])
BF.getBlockAffectedAddresses          Either Integer BlockHash
a

-- -- Client.Cardano.Network
getNetworkInfo :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Sem r Network
getNetworkInfo                              = Either BlockfrostError Network -> Sem r Network
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError Network -> Sem r Network)
-> Sem r (Either BlockfrostError Network) -> Sem r Network
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Sem r (Either BlockfrostError Network)
forall (r :: EffectRow).
Member Blockfrost r =>
Sem r (Either BlockfrostError Network)
BF.getNetworkInfo
getNetworkEras :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Sem r [NetworkEraSummary]
getNetworkEras                              = Either BlockfrostError [NetworkEraSummary]
-> Sem r [NetworkEraSummary]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [NetworkEraSummary]
 -> Sem r [NetworkEraSummary])
-> Sem r (Either BlockfrostError [NetworkEraSummary])
-> Sem r [NetworkEraSummary]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Sem r (Either BlockfrostError [NetworkEraSummary])
forall (r :: EffectRow).
Member Blockfrost r =>
Sem r (Either BlockfrostError [NetworkEraSummary])
BF.getNetworkEras

-- Client.Cardano.Addresses
getAddressInfo :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Address -> Sem r AddressInfo
getAddressInfo                   Address
a          = Either BlockfrostError AddressInfo -> Sem r AddressInfo
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError AddressInfo -> Sem r AddressInfo)
-> Sem r (Either BlockfrostError AddressInfo) -> Sem r AddressInfo
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Address -> Sem r (Either BlockfrostError AddressInfo)
forall (r :: EffectRow).
Member Blockfrost r =>
Address -> Sem r (Either BlockfrostError AddressInfo)
BF.getAddressInfo                   Address
a
getAddressInfoExtended :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Address -> Sem r AddressInfoExtended
getAddressInfoExtended           Address
a          = Either BlockfrostError AddressInfoExtended
-> Sem r AddressInfoExtended
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError AddressInfoExtended
 -> Sem r AddressInfoExtended)
-> Sem r (Either BlockfrostError AddressInfoExtended)
-> Sem r AddressInfoExtended
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Address -> Sem r (Either BlockfrostError AddressInfoExtended)
forall (r :: EffectRow).
Member Blockfrost r =>
Address -> Sem r (Either BlockfrostError AddressInfoExtended)
BF.getAddressInfoExtended           Address
a
getAddressDetails :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Address -> Sem r AddressDetails
getAddressDetails                Address
a          = Either BlockfrostError AddressDetails -> Sem r AddressDetails
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError AddressDetails -> Sem r AddressDetails)
-> Sem r (Either BlockfrostError AddressDetails)
-> Sem r AddressDetails
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Address -> Sem r (Either BlockfrostError AddressDetails)
forall (r :: EffectRow).
Member Blockfrost r =>
Address -> Sem r (Either BlockfrostError AddressDetails)
BF.getAddressDetails                Address
a
getAddressUtxos' :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Address -> Paged -> SortOrder -> Sem r [AddressUtxo]
getAddressUtxos'                 Address
a Paged
b SortOrder
c      = Either BlockfrostError [AddressUtxo] -> Sem r [AddressUtxo]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [AddressUtxo] -> Sem r [AddressUtxo])
-> Sem r (Either BlockfrostError [AddressUtxo])
-> Sem r [AddressUtxo]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Address
-> Paged
-> SortOrder
-> Sem r (Either BlockfrostError [AddressUtxo])
forall (r :: EffectRow).
Member Blockfrost r =>
Address
-> Paged
-> SortOrder
-> Sem r (Either BlockfrostError [AddressUtxo])
BF.getAddressUtxos'                 Address
a Paged
b SortOrder
c
getAddressUtxos :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Address -> Sem r [AddressUtxo]
getAddressUtxos                  Address
a          = Either BlockfrostError [AddressUtxo] -> Sem r [AddressUtxo]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [AddressUtxo] -> Sem r [AddressUtxo])
-> Sem r (Either BlockfrostError [AddressUtxo])
-> Sem r [AddressUtxo]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Address -> Sem r (Either BlockfrostError [AddressUtxo])
forall (r :: EffectRow).
Member Blockfrost r =>
Address -> Sem r (Either BlockfrostError [AddressUtxo])
BF.getAddressUtxos                  Address
a
getAddressUtxosAsset' :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Address -> AssetId -> Paged -> SortOrder -> Sem r [AddressUtxo]
getAddressUtxosAsset'            Address
a AssetId
b Paged
c SortOrder
d    = Either BlockfrostError [AddressUtxo] -> Sem r [AddressUtxo]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [AddressUtxo] -> Sem r [AddressUtxo])
-> Sem r (Either BlockfrostError [AddressUtxo])
-> Sem r [AddressUtxo]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Address
-> AssetId
-> Paged
-> SortOrder
-> Sem r (Either BlockfrostError [AddressUtxo])
forall (r :: EffectRow).
Member Blockfrost r =>
Address
-> AssetId
-> Paged
-> SortOrder
-> Sem r (Either BlockfrostError [AddressUtxo])
BF.getAddressUtxosAsset'            Address
a AssetId
b Paged
c SortOrder
d
getAddressUtxosAsset :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Address -> AssetId -> Sem r [AddressUtxo]
getAddressUtxosAsset             Address
a AssetId
b        = Either BlockfrostError [AddressUtxo] -> Sem r [AddressUtxo]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [AddressUtxo] -> Sem r [AddressUtxo])
-> Sem r (Either BlockfrostError [AddressUtxo])
-> Sem r [AddressUtxo]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Address -> AssetId -> Sem r (Either BlockfrostError [AddressUtxo])
forall (r :: EffectRow).
Member Blockfrost r =>
Address -> AssetId -> Sem r (Either BlockfrostError [AddressUtxo])
BF.getAddressUtxosAsset             Address
a AssetId
b
getAddressTransactions :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Address -> Sem r [AddressTransaction]
getAddressTransactions           Address
a          = Either BlockfrostError [AddressTransaction]
-> Sem r [AddressTransaction]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [AddressTransaction]
 -> Sem r [AddressTransaction])
-> Sem r (Either BlockfrostError [AddressTransaction])
-> Sem r [AddressTransaction]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Address -> Sem r (Either BlockfrostError [AddressTransaction])
forall (r :: EffectRow).
Member Blockfrost r =>
Address -> Sem r (Either BlockfrostError [AddressTransaction])
BF.getAddressTransactions           Address
a
getAddressTransactions' :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Address
-> Paged
-> SortOrder
-> Maybe BlockIndex
-> Maybe BlockIndex
-> Sem r [AddressTransaction]
getAddressTransactions'          Address
a Paged
b SortOrder
c Maybe BlockIndex
d Maybe BlockIndex
e  = Either BlockfrostError [AddressTransaction]
-> Sem r [AddressTransaction]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [AddressTransaction]
 -> Sem r [AddressTransaction])
-> Sem r (Either BlockfrostError [AddressTransaction])
-> Sem r [AddressTransaction]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Address
-> Paged
-> SortOrder
-> Maybe BlockIndex
-> Maybe BlockIndex
-> Sem r (Either BlockfrostError [AddressTransaction])
forall (r :: EffectRow).
Member Blockfrost r =>
Address
-> Paged
-> SortOrder
-> Maybe BlockIndex
-> Maybe BlockIndex
-> Sem r (Either BlockfrostError [AddressTransaction])
BF.getAddressTransactions'          Address
a Paged
b SortOrder
c Maybe BlockIndex
d Maybe BlockIndex
e

-- Client.Cardano.Assets
getAssets' :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Paged -> SortOrder -> Sem r [AssetInfo]
getAssets'                         Paged
a SortOrder
b        = Either BlockfrostError [AssetInfo] -> Sem r [AssetInfo]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [AssetInfo] -> Sem r [AssetInfo])
-> Sem r (Either BlockfrostError [AssetInfo]) -> Sem r [AssetInfo]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Paged -> SortOrder -> Sem r (Either BlockfrostError [AssetInfo])
forall (r :: EffectRow).
Member Blockfrost r =>
Paged -> SortOrder -> Sem r (Either BlockfrostError [AssetInfo])
BF.getAssets'                       Paged
a SortOrder
b
getAssets :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Sem r [AssetInfo]
getAssets                                     = Either BlockfrostError [AssetInfo] -> Sem r [AssetInfo]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [AssetInfo] -> Sem r [AssetInfo])
-> Sem r (Either BlockfrostError [AssetInfo]) -> Sem r [AssetInfo]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Sem r (Either BlockfrostError [AssetInfo])
forall (r :: EffectRow).
Member Blockfrost r =>
Sem r (Either BlockfrostError [AssetInfo])
BF.getAssets
getAssetDetails :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
AssetId -> Sem r AssetDetails
getAssetDetails                    AssetId
a          = Either BlockfrostError AssetDetails -> Sem r AssetDetails
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError AssetDetails -> Sem r AssetDetails)
-> Sem r (Either BlockfrostError AssetDetails)
-> Sem r AssetDetails
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< AssetId -> Sem r (Either BlockfrostError AssetDetails)
forall (r :: EffectRow).
Member Blockfrost r =>
AssetId -> Sem r (Either BlockfrostError AssetDetails)
BF.getAssetDetails                  AssetId
a
getAssetHistory' :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
AssetId -> Paged -> SortOrder -> Sem r [AssetHistory]
getAssetHistory'                   AssetId
a Paged
b SortOrder
c      = Either BlockfrostError [AssetHistory] -> Sem r [AssetHistory]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [AssetHistory] -> Sem r [AssetHistory])
-> Sem r (Either BlockfrostError [AssetHistory])
-> Sem r [AssetHistory]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< AssetId
-> Paged
-> SortOrder
-> Sem r (Either BlockfrostError [AssetHistory])
forall (r :: EffectRow).
Member Blockfrost r =>
AssetId
-> Paged
-> SortOrder
-> Sem r (Either BlockfrostError [AssetHistory])
BF.getAssetHistory'                 AssetId
a Paged
b SortOrder
c
getAssetHistory :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
AssetId -> Sem r [AssetHistory]
getAssetHistory                    AssetId
a          = Either BlockfrostError [AssetHistory] -> Sem r [AssetHistory]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [AssetHistory] -> Sem r [AssetHistory])
-> Sem r (Either BlockfrostError [AssetHistory])
-> Sem r [AssetHistory]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< AssetId -> Sem r (Either BlockfrostError [AssetHistory])
forall (r :: EffectRow).
Member Blockfrost r =>
AssetId -> Sem r (Either BlockfrostError [AssetHistory])
BF.getAssetHistory                  AssetId
a
getAssetTransactions' :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
AssetId -> Paged -> SortOrder -> Sem r [AssetTransaction]
getAssetTransactions'              AssetId
a Paged
b SortOrder
c      = Either BlockfrostError [AssetTransaction]
-> Sem r [AssetTransaction]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [AssetTransaction]
 -> Sem r [AssetTransaction])
-> Sem r (Either BlockfrostError [AssetTransaction])
-> Sem r [AssetTransaction]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< AssetId
-> Paged
-> SortOrder
-> Sem r (Either BlockfrostError [AssetTransaction])
forall (r :: EffectRow).
Member Blockfrost r =>
AssetId
-> Paged
-> SortOrder
-> Sem r (Either BlockfrostError [AssetTransaction])
BF.getAssetTransactions'            AssetId
a Paged
b SortOrder
c
getAssetTransactions :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
AssetId -> Sem r [AssetTransaction]
getAssetTransactions               AssetId
a          = Either BlockfrostError [AssetTransaction]
-> Sem r [AssetTransaction]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [AssetTransaction]
 -> Sem r [AssetTransaction])
-> Sem r (Either BlockfrostError [AssetTransaction])
-> Sem r [AssetTransaction]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< AssetId -> Sem r (Either BlockfrostError [AssetTransaction])
forall (r :: EffectRow).
Member Blockfrost r =>
AssetId -> Sem r (Either BlockfrostError [AssetTransaction])
BF.getAssetTransactions             AssetId
a
getAssetAddresses' :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
AssetId -> Paged -> SortOrder -> Sem r [AssetAddress]
getAssetAddresses'                 AssetId
a Paged
b SortOrder
c      = Either BlockfrostError [AssetAddress] -> Sem r [AssetAddress]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [AssetAddress] -> Sem r [AssetAddress])
-> Sem r (Either BlockfrostError [AssetAddress])
-> Sem r [AssetAddress]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< AssetId
-> Paged
-> SortOrder
-> Sem r (Either BlockfrostError [AssetAddress])
forall (r :: EffectRow).
Member Blockfrost r =>
AssetId
-> Paged
-> SortOrder
-> Sem r (Either BlockfrostError [AssetAddress])
BF.getAssetAddresses'               AssetId
a Paged
b SortOrder
c
getAssetAddresses :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
AssetId -> Sem r [AssetAddress]
getAssetAddresses                  AssetId
a          = Either BlockfrostError [AssetAddress] -> Sem r [AssetAddress]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [AssetAddress] -> Sem r [AssetAddress])
-> Sem r (Either BlockfrostError [AssetAddress])
-> Sem r [AssetAddress]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< AssetId -> Sem r (Either BlockfrostError [AssetAddress])
forall (r :: EffectRow).
Member Blockfrost r =>
AssetId -> Sem r (Either BlockfrostError [AssetAddress])
BF.getAssetAddresses                AssetId
a
getAssetsByPolicy' :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
PolicyId -> Paged -> SortOrder -> Sem r [AssetInfo]
getAssetsByPolicy'                 PolicyId
a Paged
b SortOrder
c      = Either BlockfrostError [AssetInfo] -> Sem r [AssetInfo]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [AssetInfo] -> Sem r [AssetInfo])
-> Sem r (Either BlockfrostError [AssetInfo]) -> Sem r [AssetInfo]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< PolicyId
-> Paged -> SortOrder -> Sem r (Either BlockfrostError [AssetInfo])
forall (r :: EffectRow).
Member Blockfrost r =>
PolicyId
-> Paged -> SortOrder -> Sem r (Either BlockfrostError [AssetInfo])
BF.getAssetsByPolicy'               PolicyId
a Paged
b SortOrder
c
getAssetsByPolicy :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
PolicyId -> Sem r [AssetInfo]
getAssetsByPolicy                  PolicyId
a          = Either BlockfrostError [AssetInfo] -> Sem r [AssetInfo]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [AssetInfo] -> Sem r [AssetInfo])
-> Sem r (Either BlockfrostError [AssetInfo]) -> Sem r [AssetInfo]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< PolicyId -> Sem r (Either BlockfrostError [AssetInfo])
forall (r :: EffectRow).
Member Blockfrost r =>
PolicyId -> Sem r (Either BlockfrostError [AssetInfo])
BF.getAssetsByPolicy                PolicyId
a

-- Client.Cardano.Scripts
listScripts' :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Paged -> SortOrder -> Sem r ScriptHashList
listScripts'                       Paged
a SortOrder
b      = Either BlockfrostError ScriptHashList -> Sem r ScriptHashList
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError ScriptHashList -> Sem r ScriptHashList)
-> Sem r (Either BlockfrostError ScriptHashList)
-> Sem r ScriptHashList
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Paged -> SortOrder -> Sem r (Either BlockfrostError ScriptHashList)
forall (r :: EffectRow).
Member Blockfrost r =>
Paged -> SortOrder -> Sem r (Either BlockfrostError ScriptHashList)
BF.listScripts'                       Paged
a SortOrder
b
listScripts :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Sem r ScriptHashList
listScripts                                 = Either BlockfrostError ScriptHashList -> Sem r ScriptHashList
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError ScriptHashList -> Sem r ScriptHashList)
-> Sem r (Either BlockfrostError ScriptHashList)
-> Sem r ScriptHashList
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Sem r (Either BlockfrostError ScriptHashList)
forall (r :: EffectRow).
Member Blockfrost r =>
Sem r (Either BlockfrostError ScriptHashList)
BF.listScripts
getScript :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
ScriptHash -> Sem r Script
getScript                          ScriptHash
a        = Either BlockfrostError Script -> Sem r Script
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError Script -> Sem r Script)
-> Sem r (Either BlockfrostError Script) -> Sem r Script
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< ScriptHash -> Sem r (Either BlockfrostError Script)
forall (r :: EffectRow).
Member Blockfrost r =>
ScriptHash -> Sem r (Either BlockfrostError Script)
BF.getScript                          ScriptHash
a
getScriptRedeemers' :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
ScriptHash -> Paged -> SortOrder -> Sem r [ScriptRedeemer]
getScriptRedeemers'                ScriptHash
a Paged
b SortOrder
c    = Either BlockfrostError [ScriptRedeemer] -> Sem r [ScriptRedeemer]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [ScriptRedeemer] -> Sem r [ScriptRedeemer])
-> Sem r (Either BlockfrostError [ScriptRedeemer])
-> Sem r [ScriptRedeemer]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< ScriptHash
-> Paged
-> SortOrder
-> Sem r (Either BlockfrostError [ScriptRedeemer])
forall (r :: EffectRow).
Member Blockfrost r =>
ScriptHash
-> Paged
-> SortOrder
-> Sem r (Either BlockfrostError [ScriptRedeemer])
BF.getScriptRedeemers'                ScriptHash
a Paged
b SortOrder
c
getScriptRedeemers :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
ScriptHash -> Sem r [ScriptRedeemer]
getScriptRedeemers                 ScriptHash
a        = Either BlockfrostError [ScriptRedeemer] -> Sem r [ScriptRedeemer]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [ScriptRedeemer] -> Sem r [ScriptRedeemer])
-> Sem r (Either BlockfrostError [ScriptRedeemer])
-> Sem r [ScriptRedeemer]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< ScriptHash -> Sem r (Either BlockfrostError [ScriptRedeemer])
forall (r :: EffectRow).
Member Blockfrost r =>
ScriptHash -> Sem r (Either BlockfrostError [ScriptRedeemer])
BF.getScriptRedeemers                 ScriptHash
a
getScriptDatum :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
DatumHash -> Sem r ScriptDatum
getScriptDatum                     DatumHash
a        = Either BlockfrostError ScriptDatum -> Sem r ScriptDatum
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError ScriptDatum -> Sem r ScriptDatum)
-> Sem r (Either BlockfrostError ScriptDatum) -> Sem r ScriptDatum
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< DatumHash -> Sem r (Either BlockfrostError ScriptDatum)
forall (r :: EffectRow).
Member Blockfrost r =>
DatumHash -> Sem r (Either BlockfrostError ScriptDatum)
BF.getScriptDatum                     DatumHash
a
getScriptDatumCBOR :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
DatumHash -> Sem r ScriptDatumCBOR
getScriptDatumCBOR                 DatumHash
a        = Either BlockfrostError ScriptDatumCBOR -> Sem r ScriptDatumCBOR
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError ScriptDatumCBOR -> Sem r ScriptDatumCBOR)
-> Sem r (Either BlockfrostError ScriptDatumCBOR)
-> Sem r ScriptDatumCBOR
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< DatumHash -> Sem r (Either BlockfrostError ScriptDatumCBOR)
forall (r :: EffectRow).
Member Blockfrost r =>
DatumHash -> Sem r (Either BlockfrostError ScriptDatumCBOR)
BF.getScriptDatumCBOR                 DatumHash
a
getScriptJSON :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
ScriptHash -> Sem r ScriptJSON
getScriptJSON                      ScriptHash
a        = Either BlockfrostError ScriptJSON -> Sem r ScriptJSON
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError ScriptJSON -> Sem r ScriptJSON)
-> Sem r (Either BlockfrostError ScriptJSON) -> Sem r ScriptJSON
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< ScriptHash -> Sem r (Either BlockfrostError ScriptJSON)
forall (r :: EffectRow).
Member Blockfrost r =>
ScriptHash -> Sem r (Either BlockfrostError ScriptJSON)
BF.getScriptJSON                      ScriptHash
a
getScriptCBOR :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
ScriptHash -> Sem r ScriptCBOR
getScriptCBOR                      ScriptHash
a        = Either BlockfrostError ScriptCBOR -> Sem r ScriptCBOR
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError ScriptCBOR -> Sem r ScriptCBOR)
-> Sem r (Either BlockfrostError ScriptCBOR) -> Sem r ScriptCBOR
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< ScriptHash -> Sem r (Either BlockfrostError ScriptCBOR)
forall (r :: EffectRow).
Member Blockfrost r =>
ScriptHash -> Sem r (Either BlockfrostError ScriptCBOR)
BF.getScriptCBOR                      ScriptHash
a

-- Client.Cardano.Epochs
getLatestEpoch :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Sem r EpochInfo
getLatestEpoch                              = Either BlockfrostError EpochInfo -> Sem r EpochInfo
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError EpochInfo -> Sem r EpochInfo)
-> Sem r (Either BlockfrostError EpochInfo) -> Sem r EpochInfo
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<<  Sem r (Either BlockfrostError EpochInfo)
forall (r :: EffectRow).
Member Blockfrost r =>
Sem r (Either BlockfrostError EpochInfo)
BF.getLatestEpoch
getLatestEpochProtocolParams :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Sem r ProtocolParams
getLatestEpochProtocolParams                = Either BlockfrostError ProtocolParams -> Sem r ProtocolParams
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError ProtocolParams -> Sem r ProtocolParams)
-> Sem r (Either BlockfrostError ProtocolParams)
-> Sem r ProtocolParams
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<<  Sem r (Either BlockfrostError ProtocolParams)
forall (r :: EffectRow).
Member Blockfrost r =>
Sem r (Either BlockfrostError ProtocolParams)
BF.getLatestEpochProtocolParams
getEpoch :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Epoch -> Sem r EpochInfo
getEpoch                           Epoch
a        = Either BlockfrostError EpochInfo -> Sem r EpochInfo
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError EpochInfo -> Sem r EpochInfo)
-> Sem r (Either BlockfrostError EpochInfo) -> Sem r EpochInfo
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<<  Epoch -> Sem r (Either BlockfrostError EpochInfo)
forall (r :: EffectRow).
Member Blockfrost r =>
Epoch -> Sem r (Either BlockfrostError EpochInfo)
BF.getEpoch                           Epoch
a
getNextEpochs' :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Epoch -> Paged -> Sem r [EpochInfo]
getNextEpochs'                     Epoch
a Paged
b      = Either BlockfrostError [EpochInfo] -> Sem r [EpochInfo]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [EpochInfo] -> Sem r [EpochInfo])
-> Sem r (Either BlockfrostError [EpochInfo]) -> Sem r [EpochInfo]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<<  Epoch -> Paged -> Sem r (Either BlockfrostError [EpochInfo])
forall (r :: EffectRow).
Member Blockfrost r =>
Epoch -> Paged -> Sem r (Either BlockfrostError [EpochInfo])
BF.getNextEpochs'                     Epoch
a Paged
b
getNextEpochs :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Epoch -> Sem r [EpochInfo]
getNextEpochs                      Epoch
a        = Either BlockfrostError [EpochInfo] -> Sem r [EpochInfo]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [EpochInfo] -> Sem r [EpochInfo])
-> Sem r (Either BlockfrostError [EpochInfo]) -> Sem r [EpochInfo]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<<  Epoch -> Sem r (Either BlockfrostError [EpochInfo])
forall (r :: EffectRow).
Member Blockfrost r =>
Epoch -> Sem r (Either BlockfrostError [EpochInfo])
BF.getNextEpochs                      Epoch
a
getPreviousEpochs' :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Epoch -> Paged -> Sem r [EpochInfo]
getPreviousEpochs'                 Epoch
a Paged
b      = Either BlockfrostError [EpochInfo] -> Sem r [EpochInfo]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [EpochInfo] -> Sem r [EpochInfo])
-> Sem r (Either BlockfrostError [EpochInfo]) -> Sem r [EpochInfo]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<<  Epoch -> Paged -> Sem r (Either BlockfrostError [EpochInfo])
forall (r :: EffectRow).
Member Blockfrost r =>
Epoch -> Paged -> Sem r (Either BlockfrostError [EpochInfo])
BF.getPreviousEpochs'                 Epoch
a Paged
b
getPreviousEpochs :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Epoch -> Sem r [EpochInfo]
getPreviousEpochs                  Epoch
a        = Either BlockfrostError [EpochInfo] -> Sem r [EpochInfo]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [EpochInfo] -> Sem r [EpochInfo])
-> Sem r (Either BlockfrostError [EpochInfo]) -> Sem r [EpochInfo]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<<  Epoch -> Sem r (Either BlockfrostError [EpochInfo])
forall (r :: EffectRow).
Member Blockfrost r =>
Epoch -> Sem r (Either BlockfrostError [EpochInfo])
BF.getPreviousEpochs                  Epoch
a
getEpochStake' :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Epoch -> Paged -> Sem r [StakeDistribution]
getEpochStake'                     Epoch
a Paged
b      = Either BlockfrostError [StakeDistribution]
-> Sem r [StakeDistribution]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [StakeDistribution]
 -> Sem r [StakeDistribution])
-> Sem r (Either BlockfrostError [StakeDistribution])
-> Sem r [StakeDistribution]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<<  Epoch
-> Paged -> Sem r (Either BlockfrostError [StakeDistribution])
forall (r :: EffectRow).
Member Blockfrost r =>
Epoch
-> Paged -> Sem r (Either BlockfrostError [StakeDistribution])
BF.getEpochStake'                     Epoch
a Paged
b
getEpochStake :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Epoch -> Sem r [StakeDistribution]
getEpochStake                      Epoch
a        = Either BlockfrostError [StakeDistribution]
-> Sem r [StakeDistribution]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [StakeDistribution]
 -> Sem r [StakeDistribution])
-> Sem r (Either BlockfrostError [StakeDistribution])
-> Sem r [StakeDistribution]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<<  Epoch -> Sem r (Either BlockfrostError [StakeDistribution])
forall (r :: EffectRow).
Member Blockfrost r =>
Epoch -> Sem r (Either BlockfrostError [StakeDistribution])
BF.getEpochStake                      Epoch
a
getEpochStakeByPool' :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Epoch -> PoolId -> Paged -> Sem r [PoolStakeDistribution]
getEpochStakeByPool'               Epoch
a PoolId
b Paged
c    = Either BlockfrostError [PoolStakeDistribution]
-> Sem r [PoolStakeDistribution]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [PoolStakeDistribution]
 -> Sem r [PoolStakeDistribution])
-> Sem r (Either BlockfrostError [PoolStakeDistribution])
-> Sem r [PoolStakeDistribution]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<<  Epoch
-> PoolId
-> Paged
-> Sem r (Either BlockfrostError [PoolStakeDistribution])
forall (r :: EffectRow).
Member Blockfrost r =>
Epoch
-> PoolId
-> Paged
-> Sem r (Either BlockfrostError [PoolStakeDistribution])
BF.getEpochStakeByPool'               Epoch
a PoolId
b Paged
c
getEpochStakeByPool :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Epoch -> PoolId -> Sem r [PoolStakeDistribution]
getEpochStakeByPool                Epoch
a PoolId
b      = Either BlockfrostError [PoolStakeDistribution]
-> Sem r [PoolStakeDistribution]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [PoolStakeDistribution]
 -> Sem r [PoolStakeDistribution])
-> Sem r (Either BlockfrostError [PoolStakeDistribution])
-> Sem r [PoolStakeDistribution]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<<  Epoch
-> PoolId -> Sem r (Either BlockfrostError [PoolStakeDistribution])
forall (r :: EffectRow).
Member Blockfrost r =>
Epoch
-> PoolId -> Sem r (Either BlockfrostError [PoolStakeDistribution])
BF.getEpochStakeByPool                Epoch
a PoolId
b
getEpochBlocks' :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Epoch -> Paged -> SortOrder -> Sem r [BlockHash]
getEpochBlocks'                    Epoch
a Paged
b SortOrder
c    = Either BlockfrostError [BlockHash] -> Sem r [BlockHash]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [BlockHash] -> Sem r [BlockHash])
-> Sem r (Either BlockfrostError [BlockHash]) -> Sem r [BlockHash]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<<  Epoch
-> Paged -> SortOrder -> Sem r (Either BlockfrostError [BlockHash])
forall (r :: EffectRow).
Member Blockfrost r =>
Epoch
-> Paged -> SortOrder -> Sem r (Either BlockfrostError [BlockHash])
BF.getEpochBlocks'                    Epoch
a Paged
b SortOrder
c
getEpochBlocks :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Epoch -> Sem r [BlockHash]
getEpochBlocks                     Epoch
a        = Either BlockfrostError [BlockHash] -> Sem r [BlockHash]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [BlockHash] -> Sem r [BlockHash])
-> Sem r (Either BlockfrostError [BlockHash]) -> Sem r [BlockHash]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<<  Epoch -> Sem r (Either BlockfrostError [BlockHash])
forall (r :: EffectRow).
Member Blockfrost r =>
Epoch -> Sem r (Either BlockfrostError [BlockHash])
BF.getEpochBlocks                     Epoch
a
getEpochBlocksByPool' :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Epoch -> PoolId -> Paged -> SortOrder -> Sem r [BlockHash]
getEpochBlocksByPool'              Epoch
a PoolId
b Paged
c SortOrder
d  = Either BlockfrostError [BlockHash] -> Sem r [BlockHash]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [BlockHash] -> Sem r [BlockHash])
-> Sem r (Either BlockfrostError [BlockHash]) -> Sem r [BlockHash]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<<  Epoch
-> PoolId
-> Paged
-> SortOrder
-> Sem r (Either BlockfrostError [BlockHash])
forall (r :: EffectRow).
Member Blockfrost r =>
Epoch
-> PoolId
-> Paged
-> SortOrder
-> Sem r (Either BlockfrostError [BlockHash])
BF.getEpochBlocksByPool'              Epoch
a PoolId
b Paged
c SortOrder
d
getEpochBlocksByPool :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Epoch -> PoolId -> Sem r [BlockHash]
getEpochBlocksByPool               Epoch
a PoolId
b      = Either BlockfrostError [BlockHash] -> Sem r [BlockHash]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [BlockHash] -> Sem r [BlockHash])
-> Sem r (Either BlockfrostError [BlockHash]) -> Sem r [BlockHash]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<<  Epoch -> PoolId -> Sem r (Either BlockfrostError [BlockHash])
forall (r :: EffectRow).
Member Blockfrost r =>
Epoch -> PoolId -> Sem r (Either BlockfrostError [BlockHash])
BF.getEpochBlocksByPool               Epoch
a PoolId
b
getEpochProtocolParams :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Epoch -> Sem r ProtocolParams
getEpochProtocolParams             Epoch
a        = Either BlockfrostError ProtocolParams -> Sem r ProtocolParams
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError ProtocolParams -> Sem r ProtocolParams)
-> Sem r (Either BlockfrostError ProtocolParams)
-> Sem r ProtocolParams
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<<  Epoch -> Sem r (Either BlockfrostError ProtocolParams)
forall (r :: EffectRow).
Member Blockfrost r =>
Epoch -> Sem r (Either BlockfrostError ProtocolParams)
BF.getEpochProtocolParams             Epoch
a

-- Client.Cardano.Transactions
getTx :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
TxHash -> Sem r Transaction
getTx                              TxHash
a        = Either BlockfrostError Transaction -> Sem r Transaction
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError Transaction -> Sem r Transaction)
-> Sem r (Either BlockfrostError Transaction) -> Sem r Transaction
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< TxHash -> Sem r (Either BlockfrostError Transaction)
forall (r :: EffectRow).
Member Blockfrost r =>
TxHash -> Sem r (Either BlockfrostError Transaction)
BF.getTx                              TxHash
a
getTxUtxos :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
TxHash -> Sem r TransactionUtxos
getTxUtxos                         TxHash
a        = Either BlockfrostError TransactionUtxos -> Sem r TransactionUtxos
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError TransactionUtxos -> Sem r TransactionUtxos)
-> Sem r (Either BlockfrostError TransactionUtxos)
-> Sem r TransactionUtxos
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< TxHash -> Sem r (Either BlockfrostError TransactionUtxos)
forall (r :: EffectRow).
Member Blockfrost r =>
TxHash -> Sem r (Either BlockfrostError TransactionUtxos)
BF.getTxUtxos                         TxHash
a
getTxRedeemers :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
TxHash -> Sem r [TransactionRedeemer]
getTxRedeemers                     TxHash
a        = Either BlockfrostError [TransactionRedeemer]
-> Sem r [TransactionRedeemer]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [TransactionRedeemer]
 -> Sem r [TransactionRedeemer])
-> Sem r (Either BlockfrostError [TransactionRedeemer])
-> Sem r [TransactionRedeemer]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< TxHash -> Sem r (Either BlockfrostError [TransactionRedeemer])
forall (r :: EffectRow).
Member Blockfrost r =>
TxHash -> Sem r (Either BlockfrostError [TransactionRedeemer])
BF.getTxRedeemers                     TxHash
a
getTxStakes :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
TxHash -> Sem r [TransactionStake]
getTxStakes                        TxHash
a        = Either BlockfrostError [TransactionStake]
-> Sem r [TransactionStake]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [TransactionStake]
 -> Sem r [TransactionStake])
-> Sem r (Either BlockfrostError [TransactionStake])
-> Sem r [TransactionStake]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< TxHash -> Sem r (Either BlockfrostError [TransactionStake])
forall (r :: EffectRow).
Member Blockfrost r =>
TxHash -> Sem r (Either BlockfrostError [TransactionStake])
BF.getTxStakes                        TxHash
a
getTxDelegations :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
TxHash -> Sem r [TransactionDelegation]
getTxDelegations                   TxHash
a        = Either BlockfrostError [TransactionDelegation]
-> Sem r [TransactionDelegation]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [TransactionDelegation]
 -> Sem r [TransactionDelegation])
-> Sem r (Either BlockfrostError [TransactionDelegation])
-> Sem r [TransactionDelegation]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< TxHash -> Sem r (Either BlockfrostError [TransactionDelegation])
forall (r :: EffectRow).
Member Blockfrost r =>
TxHash -> Sem r (Either BlockfrostError [TransactionDelegation])
BF.getTxDelegations                   TxHash
a
getTxWithdrawals :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
TxHash -> Sem r [TransactionWithdrawal]
getTxWithdrawals                   TxHash
a        = Either BlockfrostError [TransactionWithdrawal]
-> Sem r [TransactionWithdrawal]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [TransactionWithdrawal]
 -> Sem r [TransactionWithdrawal])
-> Sem r (Either BlockfrostError [TransactionWithdrawal])
-> Sem r [TransactionWithdrawal]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< TxHash -> Sem r (Either BlockfrostError [TransactionWithdrawal])
forall (r :: EffectRow).
Member Blockfrost r =>
TxHash -> Sem r (Either BlockfrostError [TransactionWithdrawal])
BF.getTxWithdrawals                   TxHash
a
getTxMirs :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
TxHash -> Sem r [TransactionMir]
getTxMirs                          TxHash
a        = Either BlockfrostError [TransactionMir] -> Sem r [TransactionMir]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [TransactionMir] -> Sem r [TransactionMir])
-> Sem r (Either BlockfrostError [TransactionMir])
-> Sem r [TransactionMir]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< TxHash -> Sem r (Either BlockfrostError [TransactionMir])
forall (r :: EffectRow).
Member Blockfrost r =>
TxHash -> Sem r (Either BlockfrostError [TransactionMir])
BF.getTxMirs                          TxHash
a
getTxPoolUpdates :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
TxHash -> Sem r [TransactionPoolUpdate]
getTxPoolUpdates                   TxHash
a        = Either BlockfrostError [TransactionPoolUpdate]
-> Sem r [TransactionPoolUpdate]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [TransactionPoolUpdate]
 -> Sem r [TransactionPoolUpdate])
-> Sem r (Either BlockfrostError [TransactionPoolUpdate])
-> Sem r [TransactionPoolUpdate]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< TxHash -> Sem r (Either BlockfrostError [TransactionPoolUpdate])
forall (r :: EffectRow).
Member Blockfrost r =>
TxHash -> Sem r (Either BlockfrostError [TransactionPoolUpdate])
BF.getTxPoolUpdates                   TxHash
a
getTxPoolRetiring :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
TxHash -> Sem r [TransactionPoolRetiring]
getTxPoolRetiring                  TxHash
a        = Either BlockfrostError [TransactionPoolRetiring]
-> Sem r [TransactionPoolRetiring]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [TransactionPoolRetiring]
 -> Sem r [TransactionPoolRetiring])
-> Sem r (Either BlockfrostError [TransactionPoolRetiring])
-> Sem r [TransactionPoolRetiring]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< TxHash -> Sem r (Either BlockfrostError [TransactionPoolRetiring])
forall (r :: EffectRow).
Member Blockfrost r =>
TxHash -> Sem r (Either BlockfrostError [TransactionPoolRetiring])
BF.getTxPoolRetiring                  TxHash
a
getTxMetadataJSON :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
TxHash -> Sem r [TransactionMetaJSON]
getTxMetadataJSON                  TxHash
a        = Either BlockfrostError [TransactionMetaJSON]
-> Sem r [TransactionMetaJSON]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [TransactionMetaJSON]
 -> Sem r [TransactionMetaJSON])
-> Sem r (Either BlockfrostError [TransactionMetaJSON])
-> Sem r [TransactionMetaJSON]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< TxHash -> Sem r (Either BlockfrostError [TransactionMetaJSON])
forall (r :: EffectRow).
Member Blockfrost r =>
TxHash -> Sem r (Either BlockfrostError [TransactionMetaJSON])
BF.getTxMetadataJSON                  TxHash
a
getTxMetadataCBOR :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
TxHash -> Sem r [TransactionMetaCBOR]
getTxMetadataCBOR                  TxHash
a        = Either BlockfrostError [TransactionMetaCBOR]
-> Sem r [TransactionMetaCBOR]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [TransactionMetaCBOR]
 -> Sem r [TransactionMetaCBOR])
-> Sem r (Either BlockfrostError [TransactionMetaCBOR])
-> Sem r [TransactionMetaCBOR]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< TxHash -> Sem r (Either BlockfrostError [TransactionMetaCBOR])
forall (r :: EffectRow).
Member Blockfrost r =>
TxHash -> Sem r (Either BlockfrostError [TransactionMetaCBOR])
BF.getTxMetadataCBOR                  TxHash
a
submitTx :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
CBORString -> Sem r TxHash
submitTx                           CBORString
a        = Either BlockfrostError TxHash -> Sem r TxHash
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError TxHash -> Sem r TxHash)
-> Sem r (Either BlockfrostError TxHash) -> Sem r TxHash
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< CBORString -> Sem r (Either BlockfrostError TxHash)
forall (r :: EffectRow).
Member Blockfrost r =>
CBORString -> Sem r (Either BlockfrostError TxHash)
BF.submitTx                           CBORString
a

-- Client.Cardano.Ledger
getLedgerGenesis :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Sem r Genesis
getLedgerGenesis                            = Either BlockfrostError Genesis -> Sem r Genesis
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError Genesis -> Sem r Genesis)
-> Sem r (Either BlockfrostError Genesis) -> Sem r Genesis
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Sem r (Either BlockfrostError Genesis)
forall (r :: EffectRow).
Member Blockfrost r =>
Sem r (Either BlockfrostError Genesis)
BF.getLedgerGenesis

-- Client.Cardano.Accounts
getAccount :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Address -> Sem r AccountInfo
getAccount                         Address
a        = Either BlockfrostError AccountInfo -> Sem r AccountInfo
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError AccountInfo -> Sem r AccountInfo)
-> Sem r (Either BlockfrostError AccountInfo) -> Sem r AccountInfo
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Address -> Sem r (Either BlockfrostError AccountInfo)
forall (r :: EffectRow).
Member Blockfrost r =>
Address -> Sem r (Either BlockfrostError AccountInfo)
BF.getAccount                         Address
a
getAccountRewards' :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Address -> Paged -> SortOrder -> Sem r [AccountReward]
getAccountRewards'                 Address
a Paged
b SortOrder
c    = Either BlockfrostError [AccountReward] -> Sem r [AccountReward]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [AccountReward] -> Sem r [AccountReward])
-> Sem r (Either BlockfrostError [AccountReward])
-> Sem r [AccountReward]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Address
-> Paged
-> SortOrder
-> Sem r (Either BlockfrostError [AccountReward])
forall (r :: EffectRow).
Member Blockfrost r =>
Address
-> Paged
-> SortOrder
-> Sem r (Either BlockfrostError [AccountReward])
BF.getAccountRewards'                 Address
a Paged
b SortOrder
c
getAccountRewards :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Address -> Sem r [AccountReward]
getAccountRewards                  Address
a        = Either BlockfrostError [AccountReward] -> Sem r [AccountReward]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [AccountReward] -> Sem r [AccountReward])
-> Sem r (Either BlockfrostError [AccountReward])
-> Sem r [AccountReward]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Address -> Sem r (Either BlockfrostError [AccountReward])
forall (r :: EffectRow).
Member Blockfrost r =>
Address -> Sem r (Either BlockfrostError [AccountReward])
BF.getAccountRewards                  Address
a
getAccountHistory' :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Address -> Paged -> SortOrder -> Sem r [AccountHistory]
getAccountHistory'                 Address
a Paged
b SortOrder
c    = Either BlockfrostError [AccountHistory] -> Sem r [AccountHistory]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [AccountHistory] -> Sem r [AccountHistory])
-> Sem r (Either BlockfrostError [AccountHistory])
-> Sem r [AccountHistory]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Address
-> Paged
-> SortOrder
-> Sem r (Either BlockfrostError [AccountHistory])
forall (r :: EffectRow).
Member Blockfrost r =>
Address
-> Paged
-> SortOrder
-> Sem r (Either BlockfrostError [AccountHistory])
BF.getAccountHistory'                 Address
a Paged
b SortOrder
c
getAccountHistory :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Address -> Sem r [AccountHistory]
getAccountHistory                  Address
a        = Either BlockfrostError [AccountHistory] -> Sem r [AccountHistory]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [AccountHistory] -> Sem r [AccountHistory])
-> Sem r (Either BlockfrostError [AccountHistory])
-> Sem r [AccountHistory]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Address -> Sem r (Either BlockfrostError [AccountHistory])
forall (r :: EffectRow).
Member Blockfrost r =>
Address -> Sem r (Either BlockfrostError [AccountHistory])
BF.getAccountHistory                  Address
a
getAccountDelegations' :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Address -> Paged -> SortOrder -> Sem r [AccountDelegation]
getAccountDelegations'             Address
a Paged
b SortOrder
c    = Either BlockfrostError [AccountDelegation]
-> Sem r [AccountDelegation]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [AccountDelegation]
 -> Sem r [AccountDelegation])
-> Sem r (Either BlockfrostError [AccountDelegation])
-> Sem r [AccountDelegation]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Address
-> Paged
-> SortOrder
-> Sem r (Either BlockfrostError [AccountDelegation])
forall (r :: EffectRow).
Member Blockfrost r =>
Address
-> Paged
-> SortOrder
-> Sem r (Either BlockfrostError [AccountDelegation])
BF.getAccountDelegations'             Address
a Paged
b SortOrder
c
getAccountDelegations :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Address -> Sem r [AccountDelegation]
getAccountDelegations              Address
a        = Either BlockfrostError [AccountDelegation]
-> Sem r [AccountDelegation]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [AccountDelegation]
 -> Sem r [AccountDelegation])
-> Sem r (Either BlockfrostError [AccountDelegation])
-> Sem r [AccountDelegation]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Address -> Sem r (Either BlockfrostError [AccountDelegation])
forall (r :: EffectRow).
Member Blockfrost r =>
Address -> Sem r (Either BlockfrostError [AccountDelegation])
BF.getAccountDelegations              Address
a
getAccountRegistrations' :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Address -> Paged -> SortOrder -> Sem r [AccountRegistration]
getAccountRegistrations'           Address
a Paged
b SortOrder
c    = Either BlockfrostError [AccountRegistration]
-> Sem r [AccountRegistration]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [AccountRegistration]
 -> Sem r [AccountRegistration])
-> Sem r (Either BlockfrostError [AccountRegistration])
-> Sem r [AccountRegistration]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Address
-> Paged
-> SortOrder
-> Sem r (Either BlockfrostError [AccountRegistration])
forall (r :: EffectRow).
Member Blockfrost r =>
Address
-> Paged
-> SortOrder
-> Sem r (Either BlockfrostError [AccountRegistration])
BF.getAccountRegistrations'           Address
a Paged
b SortOrder
c
getAccountRegistrations :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Address -> Sem r [AccountRegistration]
getAccountRegistrations            Address
a        = Either BlockfrostError [AccountRegistration]
-> Sem r [AccountRegistration]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [AccountRegistration]
 -> Sem r [AccountRegistration])
-> Sem r (Either BlockfrostError [AccountRegistration])
-> Sem r [AccountRegistration]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Address -> Sem r (Either BlockfrostError [AccountRegistration])
forall (r :: EffectRow).
Member Blockfrost r =>
Address -> Sem r (Either BlockfrostError [AccountRegistration])
BF.getAccountRegistrations            Address
a
getAccountWithdrawals' :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Address -> Paged -> SortOrder -> Sem r [AccountWithdrawal]
getAccountWithdrawals'             Address
a Paged
b SortOrder
c    = Either BlockfrostError [AccountWithdrawal]
-> Sem r [AccountWithdrawal]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [AccountWithdrawal]
 -> Sem r [AccountWithdrawal])
-> Sem r (Either BlockfrostError [AccountWithdrawal])
-> Sem r [AccountWithdrawal]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Address
-> Paged
-> SortOrder
-> Sem r (Either BlockfrostError [AccountWithdrawal])
forall (r :: EffectRow).
Member Blockfrost r =>
Address
-> Paged
-> SortOrder
-> Sem r (Either BlockfrostError [AccountWithdrawal])
BF.getAccountWithdrawals'             Address
a Paged
b SortOrder
c
getAccountWithdrawals :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Address -> Sem r [AccountWithdrawal]
getAccountWithdrawals              Address
a        = Either BlockfrostError [AccountWithdrawal]
-> Sem r [AccountWithdrawal]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [AccountWithdrawal]
 -> Sem r [AccountWithdrawal])
-> Sem r (Either BlockfrostError [AccountWithdrawal])
-> Sem r [AccountWithdrawal]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Address -> Sem r (Either BlockfrostError [AccountWithdrawal])
forall (r :: EffectRow).
Member Blockfrost r =>
Address -> Sem r (Either BlockfrostError [AccountWithdrawal])
BF.getAccountWithdrawals              Address
a
getAccountMirs' :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Address -> Paged -> SortOrder -> Sem r [AccountMir]
getAccountMirs'                    Address
a Paged
b SortOrder
c    = Either BlockfrostError [AccountMir] -> Sem r [AccountMir]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [AccountMir] -> Sem r [AccountMir])
-> Sem r (Either BlockfrostError [AccountMir])
-> Sem r [AccountMir]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Address
-> Paged
-> SortOrder
-> Sem r (Either BlockfrostError [AccountMir])
forall (r :: EffectRow).
Member Blockfrost r =>
Address
-> Paged
-> SortOrder
-> Sem r (Either BlockfrostError [AccountMir])
BF.getAccountMirs'                    Address
a Paged
b SortOrder
c
getAccountMirs :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Address -> Sem r [AccountMir]
getAccountMirs                     Address
a        = Either BlockfrostError [AccountMir] -> Sem r [AccountMir]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [AccountMir] -> Sem r [AccountMir])
-> Sem r (Either BlockfrostError [AccountMir])
-> Sem r [AccountMir]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Address -> Sem r (Either BlockfrostError [AccountMir])
forall (r :: EffectRow).
Member Blockfrost r =>
Address -> Sem r (Either BlockfrostError [AccountMir])
BF.getAccountMirs                     Address
a
getAccountAssociatedAddresses' :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Address -> Paged -> SortOrder -> Sem r [AddressAssociated]
getAccountAssociatedAddresses'     Address
a Paged
b SortOrder
c    = Either BlockfrostError [AddressAssociated]
-> Sem r [AddressAssociated]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [AddressAssociated]
 -> Sem r [AddressAssociated])
-> Sem r (Either BlockfrostError [AddressAssociated])
-> Sem r [AddressAssociated]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Address
-> Paged
-> SortOrder
-> Sem r (Either BlockfrostError [AddressAssociated])
forall (r :: EffectRow).
Member Blockfrost r =>
Address
-> Paged
-> SortOrder
-> Sem r (Either BlockfrostError [AddressAssociated])
BF.getAccountAssociatedAddresses'     Address
a Paged
b SortOrder
c
getAccountAssociatedAddresses :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Address -> Sem r [AddressAssociated]
getAccountAssociatedAddresses      Address
a        = Either BlockfrostError [AddressAssociated]
-> Sem r [AddressAssociated]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [AddressAssociated]
 -> Sem r [AddressAssociated])
-> Sem r (Either BlockfrostError [AddressAssociated])
-> Sem r [AddressAssociated]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Address -> Sem r (Either BlockfrostError [AddressAssociated])
forall (r :: EffectRow).
Member Blockfrost r =>
Address -> Sem r (Either BlockfrostError [AddressAssociated])
BF.getAccountAssociatedAddresses      Address
a
getAccountAssociatedAddressesTotal :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Address -> Sem r AddressAssociatedTotal
getAccountAssociatedAddressesTotal Address
a        = Either BlockfrostError AddressAssociatedTotal
-> Sem r AddressAssociatedTotal
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError AddressAssociatedTotal
 -> Sem r AddressAssociatedTotal)
-> Sem r (Either BlockfrostError AddressAssociatedTotal)
-> Sem r AddressAssociatedTotal
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Address -> Sem r (Either BlockfrostError AddressAssociatedTotal)
forall (r :: EffectRow).
Member Blockfrost r =>
Address -> Sem r (Either BlockfrostError AddressAssociatedTotal)
BF.getAccountAssociatedAddressesTotal Address
a
getAccountAssociatedAssets' :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Address -> Paged -> SortOrder -> Sem r [Amount]
getAccountAssociatedAssets'        Address
a Paged
b SortOrder
c    = Either BlockfrostError [Amount] -> Sem r [Amount]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [Amount] -> Sem r [Amount])
-> Sem r (Either BlockfrostError [Amount]) -> Sem r [Amount]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Address
-> Paged -> SortOrder -> Sem r (Either BlockfrostError [Amount])
forall (r :: EffectRow).
Member Blockfrost r =>
Address
-> Paged -> SortOrder -> Sem r (Either BlockfrostError [Amount])
BF.getAccountAssociatedAssets'        Address
a Paged
b SortOrder
c
getAccountAssociatedAssets :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Address -> Sem r [Amount]
getAccountAssociatedAssets         Address
a        = Either BlockfrostError [Amount] -> Sem r [Amount]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [Amount] -> Sem r [Amount])
-> Sem r (Either BlockfrostError [Amount]) -> Sem r [Amount]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Address -> Sem r (Either BlockfrostError [Amount])
forall (r :: EffectRow).
Member Blockfrost r =>
Address -> Sem r (Either BlockfrostError [Amount])
BF.getAccountAssociatedAssets         Address
a

-- Client.Cardano.Pools
listPools' :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Paged -> SortOrder -> Sem r [PoolId]
listPools'                         Paged
a SortOrder
b      = Either BlockfrostError [PoolId] -> Sem r [PoolId]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [PoolId] -> Sem r [PoolId])
-> Sem r (Either BlockfrostError [PoolId]) -> Sem r [PoolId]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Paged -> SortOrder -> Sem r (Either BlockfrostError [PoolId])
forall (r :: EffectRow).
Member Blockfrost r =>
Paged -> SortOrder -> Sem r (Either BlockfrostError [PoolId])
BF.listPools'                         Paged
a SortOrder
b
listPools :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Sem r [PoolId]
listPools                                   = Either BlockfrostError [PoolId] -> Sem r [PoolId]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [PoolId] -> Sem r [PoolId])
-> Sem r (Either BlockfrostError [PoolId]) -> Sem r [PoolId]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Sem r (Either BlockfrostError [PoolId])
forall (r :: EffectRow).
Member Blockfrost r =>
Sem r (Either BlockfrostError [PoolId])
BF.listPools
listPoolsExtended' :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Paged -> SortOrder -> Sem r [Pool]
listPoolsExtended'                 Paged
a SortOrder
b      = Either BlockfrostError [Pool] -> Sem r [Pool]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [Pool] -> Sem r [Pool])
-> Sem r (Either BlockfrostError [Pool]) -> Sem r [Pool]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Paged -> SortOrder -> Sem r (Either BlockfrostError [Pool])
forall (r :: EffectRow).
Member Blockfrost r =>
Paged -> SortOrder -> Sem r (Either BlockfrostError [Pool])
BF.listPoolsExtended'                 Paged
a SortOrder
b
listPoolsExtended :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Sem r [Pool]
listPoolsExtended                           = Either BlockfrostError [Pool] -> Sem r [Pool]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [Pool] -> Sem r [Pool])
-> Sem r (Either BlockfrostError [Pool]) -> Sem r [Pool]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Sem r (Either BlockfrostError [Pool])
forall (r :: EffectRow).
Member Blockfrost r =>
Sem r (Either BlockfrostError [Pool])
BF.listPoolsExtended
listRetiredPools' :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Paged -> SortOrder -> Sem r [PoolEpoch]
listRetiredPools'                  Paged
a SortOrder
b      = Either BlockfrostError [PoolEpoch] -> Sem r [PoolEpoch]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [PoolEpoch] -> Sem r [PoolEpoch])
-> Sem r (Either BlockfrostError [PoolEpoch]) -> Sem r [PoolEpoch]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Paged -> SortOrder -> Sem r (Either BlockfrostError [PoolEpoch])
forall (r :: EffectRow).
Member Blockfrost r =>
Paged -> SortOrder -> Sem r (Either BlockfrostError [PoolEpoch])
BF.listRetiredPools'                  Paged
a SortOrder
b
listRetiredPools :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Sem r [PoolEpoch]
listRetiredPools                            = Either BlockfrostError [PoolEpoch] -> Sem r [PoolEpoch]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [PoolEpoch] -> Sem r [PoolEpoch])
-> Sem r (Either BlockfrostError [PoolEpoch]) -> Sem r [PoolEpoch]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Sem r (Either BlockfrostError [PoolEpoch])
forall (r :: EffectRow).
Member Blockfrost r =>
Sem r (Either BlockfrostError [PoolEpoch])
BF.listRetiredPools
listRetiringPools' :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Paged -> SortOrder -> Sem r [PoolEpoch]
listRetiringPools'                 Paged
a SortOrder
b      = Either BlockfrostError [PoolEpoch] -> Sem r [PoolEpoch]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [PoolEpoch] -> Sem r [PoolEpoch])
-> Sem r (Either BlockfrostError [PoolEpoch]) -> Sem r [PoolEpoch]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Paged -> SortOrder -> Sem r (Either BlockfrostError [PoolEpoch])
forall (r :: EffectRow).
Member Blockfrost r =>
Paged -> SortOrder -> Sem r (Either BlockfrostError [PoolEpoch])
BF.listRetiringPools'                 Paged
a SortOrder
b
listRetiringPools :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Sem r [PoolEpoch]
listRetiringPools                           = Either BlockfrostError [PoolEpoch] -> Sem r [PoolEpoch]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [PoolEpoch] -> Sem r [PoolEpoch])
-> Sem r (Either BlockfrostError [PoolEpoch]) -> Sem r [PoolEpoch]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Sem r (Either BlockfrostError [PoolEpoch])
forall (r :: EffectRow).
Member Blockfrost r =>
Sem r (Either BlockfrostError [PoolEpoch])
BF.listRetiringPools
getPool :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
PoolId -> Sem r PoolInfo
getPool                            PoolId
a        = Either BlockfrostError PoolInfo -> Sem r PoolInfo
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError PoolInfo -> Sem r PoolInfo)
-> Sem r (Either BlockfrostError PoolInfo) -> Sem r PoolInfo
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< PoolId -> Sem r (Either BlockfrostError PoolInfo)
forall (r :: EffectRow).
Member Blockfrost r =>
PoolId -> Sem r (Either BlockfrostError PoolInfo)
BF.getPool                            PoolId
a
getPoolHistory' :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
PoolId -> Paged -> SortOrder -> Sem r [PoolHistory]
getPoolHistory'                    PoolId
a Paged
b SortOrder
c    = Either BlockfrostError [PoolHistory] -> Sem r [PoolHistory]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [PoolHistory] -> Sem r [PoolHistory])
-> Sem r (Either BlockfrostError [PoolHistory])
-> Sem r [PoolHistory]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< PoolId
-> Paged
-> SortOrder
-> Sem r (Either BlockfrostError [PoolHistory])
forall (r :: EffectRow).
Member Blockfrost r =>
PoolId
-> Paged
-> SortOrder
-> Sem r (Either BlockfrostError [PoolHistory])
BF.getPoolHistory'                    PoolId
a Paged
b SortOrder
c
getPoolHistory :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
PoolId -> Sem r [PoolHistory]
getPoolHistory                     PoolId
a        = Either BlockfrostError [PoolHistory] -> Sem r [PoolHistory]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [PoolHistory] -> Sem r [PoolHistory])
-> Sem r (Either BlockfrostError [PoolHistory])
-> Sem r [PoolHistory]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< PoolId -> Sem r (Either BlockfrostError [PoolHistory])
forall (r :: EffectRow).
Member Blockfrost r =>
PoolId -> Sem r (Either BlockfrostError [PoolHistory])
BF.getPoolHistory                     PoolId
a
getPoolMetadata :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
PoolId -> Sem r (Maybe PoolMetadata)
getPoolMetadata                    PoolId
a        = Either BlockfrostError (Maybe PoolMetadata)
-> Sem r (Maybe PoolMetadata)
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError (Maybe PoolMetadata)
 -> Sem r (Maybe PoolMetadata))
-> Sem r (Either BlockfrostError (Maybe PoolMetadata))
-> Sem r (Maybe PoolMetadata)
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< PoolId -> Sem r (Either BlockfrostError (Maybe PoolMetadata))
forall (r :: EffectRow).
Member Blockfrost r =>
PoolId -> Sem r (Either BlockfrostError (Maybe PoolMetadata))
BF.getPoolMetadata                    PoolId
a
getPoolRelays :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
PoolId -> Sem r [PoolRelay]
getPoolRelays                      PoolId
a        = Either BlockfrostError [PoolRelay] -> Sem r [PoolRelay]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [PoolRelay] -> Sem r [PoolRelay])
-> Sem r (Either BlockfrostError [PoolRelay]) -> Sem r [PoolRelay]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< PoolId -> Sem r (Either BlockfrostError [PoolRelay])
forall (r :: EffectRow).
Member Blockfrost r =>
PoolId -> Sem r (Either BlockfrostError [PoolRelay])
BF.getPoolRelays                      PoolId
a
getPoolDelegators' :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
PoolId -> Paged -> SortOrder -> Sem r [PoolDelegator]
getPoolDelegators'                 PoolId
a Paged
b SortOrder
c    = Either BlockfrostError [PoolDelegator] -> Sem r [PoolDelegator]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [PoolDelegator] -> Sem r [PoolDelegator])
-> Sem r (Either BlockfrostError [PoolDelegator])
-> Sem r [PoolDelegator]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< PoolId
-> Paged
-> SortOrder
-> Sem r (Either BlockfrostError [PoolDelegator])
forall (r :: EffectRow).
Member Blockfrost r =>
PoolId
-> Paged
-> SortOrder
-> Sem r (Either BlockfrostError [PoolDelegator])
BF.getPoolDelegators'                 PoolId
a Paged
b SortOrder
c
getPoolDelegators :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
PoolId -> Sem r [PoolDelegator]
getPoolDelegators                  PoolId
a        = Either BlockfrostError [PoolDelegator] -> Sem r [PoolDelegator]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [PoolDelegator] -> Sem r [PoolDelegator])
-> Sem r (Either BlockfrostError [PoolDelegator])
-> Sem r [PoolDelegator]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< PoolId -> Sem r (Either BlockfrostError [PoolDelegator])
forall (r :: EffectRow).
Member Blockfrost r =>
PoolId -> Sem r (Either BlockfrostError [PoolDelegator])
BF.getPoolDelegators                  PoolId
a
getPoolBlocks' :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
PoolId -> Paged -> SortOrder -> Sem r [BlockHash]
getPoolBlocks'                     PoolId
a Paged
b SortOrder
c    = Either BlockfrostError [BlockHash] -> Sem r [BlockHash]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [BlockHash] -> Sem r [BlockHash])
-> Sem r (Either BlockfrostError [BlockHash]) -> Sem r [BlockHash]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< PoolId
-> Paged -> SortOrder -> Sem r (Either BlockfrostError [BlockHash])
forall (r :: EffectRow).
Member Blockfrost r =>
PoolId
-> Paged -> SortOrder -> Sem r (Either BlockfrostError [BlockHash])
BF.getPoolBlocks'                     PoolId
a Paged
b SortOrder
c
getPoolBlocks :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
PoolId -> Sem r [BlockHash]
getPoolBlocks                      PoolId
a        = Either BlockfrostError [BlockHash] -> Sem r [BlockHash]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [BlockHash] -> Sem r [BlockHash])
-> Sem r (Either BlockfrostError [BlockHash]) -> Sem r [BlockHash]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< PoolId -> Sem r (Either BlockfrostError [BlockHash])
forall (r :: EffectRow).
Member Blockfrost r =>
PoolId -> Sem r (Either BlockfrostError [BlockHash])
BF.getPoolBlocks                      PoolId
a
getPoolUpdates' :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
PoolId -> Paged -> SortOrder -> Sem r [PoolUpdate]
getPoolUpdates'                    PoolId
a Paged
b SortOrder
c    = Either BlockfrostError [PoolUpdate] -> Sem r [PoolUpdate]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [PoolUpdate] -> Sem r [PoolUpdate])
-> Sem r (Either BlockfrostError [PoolUpdate])
-> Sem r [PoolUpdate]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< PoolId
-> Paged
-> SortOrder
-> Sem r (Either BlockfrostError [PoolUpdate])
forall (r :: EffectRow).
Member Blockfrost r =>
PoolId
-> Paged
-> SortOrder
-> Sem r (Either BlockfrostError [PoolUpdate])
BF.getPoolUpdates'                    PoolId
a Paged
b SortOrder
c
getPoolUpdates :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
PoolId -> Sem r [PoolUpdate]
getPoolUpdates                     PoolId
a        = Either BlockfrostError [PoolUpdate] -> Sem r [PoolUpdate]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [PoolUpdate] -> Sem r [PoolUpdate])
-> Sem r (Either BlockfrostError [PoolUpdate])
-> Sem r [PoolUpdate]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< PoolId -> Sem r (Either BlockfrostError [PoolUpdate])
forall (r :: EffectRow).
Member Blockfrost r =>
PoolId -> Sem r (Either BlockfrostError [PoolUpdate])
BF.getPoolUpdates                     PoolId
a

-- Client.Cardano.Metadata
getTxMetadataLabels' :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Paged -> SortOrder -> Sem r [TxMeta]
getTxMetadataLabels'               Paged
a SortOrder
b      = Either BlockfrostError [TxMeta] -> Sem r [TxMeta]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [TxMeta] -> Sem r [TxMeta])
-> Sem r (Either BlockfrostError [TxMeta]) -> Sem r [TxMeta]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Paged -> SortOrder -> Sem r (Either BlockfrostError [TxMeta])
forall (r :: EffectRow).
Member Blockfrost r =>
Paged -> SortOrder -> Sem r (Either BlockfrostError [TxMeta])
BF.getTxMetadataLabels'               Paged
a SortOrder
b
getTxMetadataLabels :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Sem r [TxMeta]
getTxMetadataLabels                         = Either BlockfrostError [TxMeta] -> Sem r [TxMeta]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [TxMeta] -> Sem r [TxMeta])
-> Sem r (Either BlockfrostError [TxMeta]) -> Sem r [TxMeta]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Sem r (Either BlockfrostError [TxMeta])
forall (r :: EffectRow).
Member Blockfrost r =>
Sem r (Either BlockfrostError [TxMeta])
BF.getTxMetadataLabels
getTxMetadataByLabelJSON' :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Text -> Paged -> SortOrder -> Sem r [TxMetaJSON]
getTxMetadataByLabelJSON'          Text
a Paged
b SortOrder
c    = Either BlockfrostError [TxMetaJSON] -> Sem r [TxMetaJSON]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [TxMetaJSON] -> Sem r [TxMetaJSON])
-> Sem r (Either BlockfrostError [TxMetaJSON])
-> Sem r [TxMetaJSON]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Text
-> Paged
-> SortOrder
-> Sem r (Either BlockfrostError [TxMetaJSON])
forall (r :: EffectRow).
Member Blockfrost r =>
Text
-> Paged
-> SortOrder
-> Sem r (Either BlockfrostError [TxMetaJSON])
BF.getTxMetadataByLabelJSON'          Text
a Paged
b SortOrder
c
getTxMetadataByLabelJSON :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Text -> Sem r [TxMetaJSON]
getTxMetadataByLabelJSON           Text
a        = Either BlockfrostError [TxMetaJSON] -> Sem r [TxMetaJSON]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [TxMetaJSON] -> Sem r [TxMetaJSON])
-> Sem r (Either BlockfrostError [TxMetaJSON])
-> Sem r [TxMetaJSON]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Text -> Sem r (Either BlockfrostError [TxMetaJSON])
forall (r :: EffectRow).
Member Blockfrost r =>
Text -> Sem r (Either BlockfrostError [TxMetaJSON])
BF.getTxMetadataByLabelJSON           Text
a
getTxMetadataByLabelCBOR' :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Text -> Paged -> SortOrder -> Sem r [TxMetaCBOR]
getTxMetadataByLabelCBOR'          Text
a Paged
b SortOrder
c    = Either BlockfrostError [TxMetaCBOR] -> Sem r [TxMetaCBOR]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [TxMetaCBOR] -> Sem r [TxMetaCBOR])
-> Sem r (Either BlockfrostError [TxMetaCBOR])
-> Sem r [TxMetaCBOR]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Text
-> Paged
-> SortOrder
-> Sem r (Either BlockfrostError [TxMetaCBOR])
forall (r :: EffectRow).
Member Blockfrost r =>
Text
-> Paged
-> SortOrder
-> Sem r (Either BlockfrostError [TxMetaCBOR])
BF.getTxMetadataByLabelCBOR'          Text
a Paged
b SortOrder
c
getTxMetadataByLabelCBOR :: forall (r :: EffectRow).
(Member Blockfrost r, Member (Error BlockfrostError) r) =>
Text -> Sem r [TxMetaCBOR]
getTxMetadataByLabelCBOR           Text
a        = Either BlockfrostError [TxMetaCBOR] -> Sem r [TxMetaCBOR]
forall e (r :: EffectRow) a.
Member (Error e) r =>
Either e a -> Sem r a
fromEither (Either BlockfrostError [TxMetaCBOR] -> Sem r [TxMetaCBOR])
-> Sem r (Either BlockfrostError [TxMetaCBOR])
-> Sem r [TxMetaCBOR]
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Text -> Sem r (Either BlockfrostError [TxMetaCBOR])
forall (r :: EffectRow).
Member Blockfrost r =>
Text -> Sem r (Either BlockfrostError [TxMetaCBOR])
BF.getTxMetadataByLabelCBOR           Text
a