From d235c56cfb227d31e56fb3500950f946d9783510 Mon Sep 17 00:00:00 2001 From: Rene Vergara Date: Fri, 29 Sep 2023 14:33:17 -0500 Subject: [PATCH] Correct tx filtering --- src/ZGoBackend.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/ZGoBackend.hs b/src/ZGoBackend.hs index 00fad1a..31c51b8 100644 --- a/src/ZGoBackend.hs +++ b/src/ZGoBackend.hs @@ -1855,7 +1855,7 @@ scanTxNative pipe db nodeUser nodePwd = do filterBlock b = maybe 0 bl_confirmations b >= 5 filterTx :: Maybe RawTxResponse -> Bool filterTx t = - not (null (maybe [] rt_shieldedOutputs t)) && + not (null (maybe [] rt_shieldedOutputs t)) || not (null (maybe [] rt_orchardActions t)) extractTxs :: Maybe BlockResponse -> [T.Text] extractTxs = maybe [] bl_txs