From 78c8b9ef5c6ec1c9cee7c9bdb266286424ecddaa Mon Sep 17 00:00:00 2001
From: Rene Vergara <rene@vergara.network>
Date: Thu, 28 Sep 2023 15:35:17 -0500
Subject: [PATCH] Update Sapling decoding

---
 src/ZGoBackend.hs | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

diff --git a/src/ZGoBackend.hs b/src/ZGoBackend.hs
index c6b08d7..9068e7d 100644
--- a/src/ZGoBackend.hs
+++ b/src/ZGoBackend.hs
@@ -1879,17 +1879,12 @@ scanTxNative pipe db nodeUser nodePwd = do
       if isValidSaplingViewingKey (E.encodeUtf8 k)
         then do
           print "decoding Sapling tx"
-          let i =
-                concatMap
-                  rt_shieldedOutputs
-                  (filter (\y -> rt_shieldedOutputs y /= []) txList)
+          let i = concatMap rt_shieldedOutputs txList
           print i
           let decodedTxList =
                 map
                   (decodeSaplingOutput (bytes (decodeBech32 $ E.encodeUtf8 k)))
-                  (concatMap
-                     rt_shieldedOutputs
-                     (filter (\x -> rt_shieldedOutputs x /= []) txList))
+                  (concatMap rt_shieldedOutputs txList)
           print decodedTxList
         else do
           let vk = decodeUfvk $ E.encodeUtf8 k