Troubleshoot the Sapling decode

2023-09-28 15:49:05 -05:00 · 2023-09-28 15:49:05 -05:00 · d90f7cdfea
commit d90f7cdfea
parent 78c8b9ef5c
1 changed files with 3 additions and 1 deletions
--- 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