From f0d1e933c67357969110b42320cf73e18f18e02a Mon Sep 17 00:00:00 2001
From: Rene Vergara <rene@vergara.network>
Date: Thu, 28 Sep 2023 15:26:56 -0500
Subject: [PATCH] Add debugging for shielded decode

---
 src/ZGoBackend.hs | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/ZGoBackend.hs b/src/ZGoBackend.hs
index 62eda60..c6b08d7 100644
--- a/src/ZGoBackend.hs
+++ b/src/ZGoBackend.hs
@@ -1879,6 +1879,11 @@ 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)
+          print i
           let decodedTxList =
                 map
                   (decodeSaplingOutput (bytes (decodeBech32 $ E.encodeUtf8 k)))