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