diff --git a/wallet-api/src/WalletAPI/Utxos.hs b/wallet-api/src/WalletAPI/Utxos.hs index 531600ee..3d5f9211 100644 --- a/wallet-api/src/WalletAPI/Utxos.hs +++ b/wallet-api/src/WalletAPI/Utxos.hs @@ -93,7 +93,7 @@ selectUtxos'' logging explorer ustore@UtxoStore{..} pkh strict requiredValue = d let entriesLeft = Explorer.total utxoBatch - (offset + limit) if entriesLeft > 0 - then pure () -- fetchUtxos (offset + limit) limit + then fetchUtxos (offset + limit) limit else pure () extractAssets v = Set.fromList (flattenValue v <&> (\(cs, tn, _) -> (cs, tn)))