From d90f7cdfea3fe662f25046c0cb9167731acb41b3 Mon Sep 17 00:00:00 2001
From: Rene Vergara <rene@vergara.network>
Date: Thu, 28 Sep 2023 15:49:05 -0500
Subject: [PATCH] Troubleshoot the Sapling decode

---
 src/ZGoBackend.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/ZGoBackend.hs b/src/ZGoBackend.hs
index 9068e7d..ecbd066 100644
--- a/src/ZGoBackend.hs
+++ b/src/ZGoBackend.hs
@@ -1879,11 +1879,13 @@ scanTxNative pipe db nodeUser nodePwd = do
       if isValidSaplingViewingKey (E.encodeUtf8 k)
         then do
           print "decoding Sapling tx"
+          let rawKey = decodeBech32 $ E.encodeUtf8 k
+          print rawKey
           let i = concatMap rt_shieldedOutputs txList
           print i
           let decodedTxList =
                 map
-                  (decodeSaplingOutput (bytes (decodeBech32 $ E.encodeUtf8 k)))
+                  (decodeSaplingOutput $ bytes rawKey)
                   (concatMap rt_shieldedOutputs txList)
           print decodedTxList
         else do