Vergara_Tech/zgo-backend
Vergara_Tech/zgo-backend
2
1
Fork 0
Code Issues Pull requests Projects Releases 4 Packages Wiki Activity

Add debugging for shielded decode

Browse source
This commit is contained in:
Rene Vergara 2023-09-28 15:26:56 -05:00
parent 5f32fd1142
commit f0d1e933c6
Signed by: pitmutt
GPG key ID: 65122AD495A7F5B2
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/ZGoBackend.hs
View file

@ -1879,6 +1879,11 @@ scanTxNative pipe db nodeUser nodePwd = do
if isValidSaplingViewingKey (E.encodeUtf8 k) if isValidSaplingViewingKey (E.encodeUtf8 k)
then do then do
print "decoding Sapling tx" print "decoding Sapling tx"
let i =
concatMap
rt_shieldedOutputs
(filter (\y -> rt_shieldedOutputs y /= []) txList)
print i
let decodedTxList = let decodedTxList =
map map
(decodeSaplingOutput (bytes (decodeBech32 $ E.encodeUtf8 k))) (decodeSaplingOutput (bytes (decodeBech32 $ E.encodeUtf8 k)))