Unified Address support #8

Merged
pitmutt merged 61 commits from dev18 into master 2023-10-28 12:24:28 +00:00
Showing only changes of commit d235c56cfb - Show all commits

View file

@ -1855,7 +1855,7 @@ scanTxNative pipe db nodeUser nodePwd = do
filterBlock b = maybe 0 bl_confirmations b >= 5 filterBlock b = maybe 0 bl_confirmations b >= 5
filterTx :: Maybe RawTxResponse -> Bool filterTx :: Maybe RawTxResponse -> Bool
filterTx t = filterTx t =
not (null (maybe [] rt_shieldedOutputs t)) && not (null (maybe [] rt_shieldedOutputs t)) ||
not (null (maybe [] rt_orchardActions t)) not (null (maybe [] rt_orchardActions t))
extractTxs :: Maybe BlockResponse -> [T.Text] extractTxs :: Maybe BlockResponse -> [T.Text]
extractTxs = maybe [] bl_txs extractTxs = maybe [] bl_txs