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

Unified Address support #8

Merged
pitmutt merged 61 commits from dev18 into master 2023-10-28 12:24:28 +00:00
Conversation 0 Commits 61 Files changed 11 +2 -7
1 changed files with 2 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files
Showing only changes of commit 78c8b9ef5c - Show all commits

9
src/ZGoBackend.hs
View file

@ -1879,17 +1879,12 @@ 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 = let i = concatMap rt_shieldedOutputs txList
concatMap
rt_shieldedOutputs
(filter (\y -> rt_shieldedOutputs y /= []) txList)
print i print i
let decodedTxList = let decodedTxList =
map map
(decodeSaplingOutput (bytes (decodeBech32 $ E.encodeUtf8 k))) (decodeSaplingOutput (bytes (decodeBech32 $ E.encodeUtf8 k)))
(concatMap (concatMap rt_shieldedOutputs txList)
rt_shieldedOutputs
(filter (\x -> rt_shieldedOutputs x /= []) txList))
print decodedTxList print decodedTxList
else do else do
let vk = decodeUfvk $ E.encodeUtf8 k let vk = decodeUfvk $ E.encodeUtf8 k