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

Add debugging

Browse source
This commit is contained in:
Rene Vergara 2024-07-01 14:35:34 -05:00
parent a6d2426610
commit 14540ffb07
Signed by: pitmutt
GPG key ID: 65122AD495A7F5B2
1 changed files with 10 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
src/ZGoBackend.hs
View file

@ -2028,8 +2028,8 @@ scanTxNative config pipe = do
if isValidSaplingViewingKey (E.encodeUtf8 $ oviewkey k) if isValidSaplingViewingKey (E.encodeUtf8 $ oviewkey k)
then do then do
print "decoding Sapling tx" print "decoding Sapling tx"
let decodedSapList' = concatMap (decodeSaplingTx $ oviewkey k) txList' decodedSapList' <- mapM (decodeSaplingTx $ oviewkey k) txList'
let zList = catMaybes decodedSapList' let zList = concatMap catMaybes decodedSapList'
mapM_ (recordPayment pipe (c_dbName config) (oaddress k)) zList mapM_ (recordPayment pipe (c_dbName config) (oaddress k)) zList
else do else do
let vk = decodeUfvk $ E.encodeUtf8 $ oviewkey k let vk = decodeUfvk $ E.encodeUtf8 $ oviewkey k
@ -2043,12 +2043,14 @@ scanTxNative config pipe = do
let decodedOrchList = concatMap (decodeUnifiedOrchardTx v) txList' let decodedOrchList = concatMap (decodeUnifiedOrchardTx v) txList'
let oList = catMaybes decodedOrchList let oList = catMaybes decodedOrchList
mapM_ (recordPayment pipe (c_dbName config) (oaddress k)) oList mapM_ (recordPayment pipe (c_dbName config) (oaddress k)) oList
decodeSaplingTx :: T.Text -> RawTxResponse -> [Maybe ZcashTx] decodeSaplingTx :: T.Text -> RawTxResponse -> IO [Maybe ZcashTx]
decodeSaplingTx k t = decodeSaplingTx k t = do
map print (show t)
(buildZcashTx t . return $
decodeSaplingOutput (bytes (decodeBech32 $ E.encodeUtf8 k))) map
(rt_shieldedOutputs t) (buildZcashTx t .
decodeSaplingOutput (bytes (decodeBech32 $ E.encodeUtf8 k)))
(rt_shieldedOutputs t)
decodeUnifiedSaplingTx :: BS.ByteString -> RawTxResponse -> [Maybe ZcashTx] decodeUnifiedSaplingTx :: BS.ByteString -> RawTxResponse -> [Maybe ZcashTx]
decodeUnifiedSaplingTx k t = decodeUnifiedSaplingTx k t =
map (buildZcashTx t . decodeSaplingOutput k) (rt_shieldedOutputs t) map (buildZcashTx t . decodeSaplingOutput k) (rt_shieldedOutputs t)