Skip to content

Add utxosAtWithPageLimit #4

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Draft
wants to merge 2 commits into
base: master
Choose a base branch
from
Draft

Add utxosAtWithPageLimit #4

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
790af9a
Add utxosAtWithPageLimit
errfrom Oct 30, 2025
971ef07
utxosAtWithPageLimit: return empty map for non-positive maxPages
errfrom Oct 30, 2025
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
41 changes: 26 additions & 15 deletions src/Blockfrost/Service.purs
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -57,6 +57,7 @@ module Cardano.Blockfrost.Service
, runBlockfrostServiceTestM
, submitTx
, utxosAt
, utxosAtWithPageLimit
) where

import Prelude
Expand Down Expand Up @@ -490,21 +491,31 @@ handle404AsMempty = map (fromMaybe mempty) <<< handle404AsNothing
--------------------------------------------------------------------------------

utxosAt :: Address -> BlockfrostServiceM (Either ClientError UtxoMap)
utxosAt address = runExceptT $
ExceptT (utxosAtAddressOnPage 1)
>>= (ExceptT <<< resolveBlockfrostUtxosAtAddress)
where
utxosAtAddressOnPage
:: Int -> BlockfrostServiceM (Either ClientError BlockfrostUtxosAtAddress)
utxosAtAddressOnPage page = runExceptT do
-- Maximum number of results per page supported by Blockfrost:
let maxNumResultsOnPage = 100
utxos <- ExceptT $
blockfrostGetRequest (UtxosAtAddress address page maxNumResultsOnPage)
<#> handle404AsMempty <<< handleBlockfrostResponse
case Array.length (unwrap utxos) < maxNumResultsOnPage of
true -> pure utxos
false -> append utxos <$> ExceptT (utxosAtAddressOnPage $ page + 1)
utxosAt = utxosAtWithPageLimit { maxPages: Nothing }

utxosAtWithPageLimit
:: { maxPages :: Maybe Int }
-> Address
-> BlockfrostServiceM (Either ClientError UtxoMap)
utxosAtWithPageLimit { maxPages } address
| maybe false (_ <= 0) maxPages = pure $ Right Map.empty
| otherwise =
runExceptT do
ExceptT (utxosAtAddressOnPage 1)
>>= (ExceptT <<< resolveBlockfrostUtxosAtAddress)
where
utxosAtAddressOnPage
:: Int -> BlockfrostServiceM (Either ClientError BlockfrostUtxosAtAddress)
utxosAtAddressOnPage page = runExceptT do
-- Maximum number of results per page supported by Blockfrost:
let maxNumResultsOnPage = 100
utxos <- ExceptT $
blockfrostGetRequest (UtxosAtAddress address page maxNumResultsOnPage)
<#> handle404AsMempty <<< handleBlockfrostResponse
let pageLimitReached = maybe false (page >= _) maxPages
case (Array.length (unwrap utxos) < maxNumResultsOnPage) || pageLimitReached of
true -> pure utxos
false -> append utxos <$> ExceptT (utxosAtAddressOnPage $ page + 1)

getUtxoByOref
:: TransactionInput
Expand Down
3 changes: 2 additions & 1 deletion src/BlockfrostProvider.purs
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -59,8 +59,9 @@ import Cardano.Blockfrost.Service
, runBlockfrostServiceTestM
, submitTx
, utxosAt
, utxosAtWithPageLimit
) as X
import Cardano.Blockfrost.BlockfrostProtocolParameters
( BlockfrostProtocolParameters(BlockfrostProtocolParameters)
) as X
import Cardano.Blockfrost.Provider (providerForBlockfrostBackend) as X
import Cardano.Blockfrost.Provider (providerForBlockfrostBackend) as X