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

Further troubleshooting

Browse source
This commit is contained in:
Rene Vergara 2023-09-28 15:55:39 -05:00
parent d90f7cdfea
commit af22c0d71f
Signed by: pitmutt
GPG key ID: 65122AD495A7F5B2
1 changed files with 4 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
src/ZGoBackend.hs
View file

@ -1875,19 +1875,11 @@ scanTxNative pipe db nodeUser nodePwd = do
print $ err content print $ err content
return Nothing return Nothing
checkTx :: [RawTxResponse] -> T.Text -> IO () checkTx :: [RawTxResponse] -> T.Text -> IO ()
checkTx txList k = do checkTx txList' k = do
if isValidSaplingViewingKey (E.encodeUtf8 k) if isValidSaplingViewingKey (E.encodeUtf8 k)
then do then do
print "decoding Sapling tx" print "decoding Sapling tx"
let rawKey = decodeBech32 $ E.encodeUtf8 k print txList'
print rawKey
let i = concatMap rt_shieldedOutputs txList
print i
let decodedTxList =
map
(decodeSaplingOutput $ bytes rawKey)
(concatMap rt_shieldedOutputs txList)
print decodedTxList
else do else do
let vk = decodeUfvk $ E.encodeUtf8 k let vk = decodeUfvk $ E.encodeUtf8 k
case vk of case vk of
@ -1896,12 +1888,12 @@ scanTxNative pipe db nodeUser nodePwd = do
let decodedSapList = let decodedSapList =
map map
(decodeSaplingOutput (s_key v)) (decodeSaplingOutput (s_key v))
(concatMap rt_shieldedOutputs txList) (concatMap rt_shieldedOutputs txList')
print decodedSapList print decodedSapList
let decodedOrchList = let decodedOrchList =
map map
(decryptOrchardAction v) (decryptOrchardAction v)
(concatMap rt_orchardActions txList) (concatMap rt_orchardActions txList')
print decodedOrchList print decodedOrchList
debug = flip trace debug = flip trace