Correct tx filtering

2023-09-29 14:33:17 -05:00 · 2023-09-29 14:33:17 -05:00 · d235c56cfb
parent 74ba9d23f0
commit d235c56cfb
1 changed files with 1 additions and 1 deletions
--- 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