diff --git a/src/ZGoBackend.hs b/src/ZGoBackend.hs index 9068e7d..ecbd066 100644 --- 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