src/ZGoBackend.hs

@@ -1875,19 +1875,11 @@ scanTxNative pipe db nodeUser nodePwd = do
           print $ err content
           return Nothing
     checkTx :: [RawTxResponse] -> T.Text -> IO ()
-    checkTx txList k = do
+    checkTx txList' k = 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 rawKey)
-                  (concatMap rt_shieldedOutputs txList)
-          print decodedTxList
+          print txList'
         else do
           let vk = decodeUfvk $ E.encodeUtf8 k
           case vk of
@@ -1896,12 +1888,12 @@ scanTxNative pipe db nodeUser nodePwd = do
               let decodedSapList =
                     map
                       (decodeSaplingOutput (s_key v))
-                      (concatMap rt_shieldedOutputs txList)
+                      (concatMap rt_shieldedOutputs txList')
               print decodedSapList
               let decodedOrchList =
                     map
                       (decryptOrchardAction v)
-                      (concatMap rt_orchardActions txList)
+                      (concatMap rt_orchardActions txList')
               print decodedOrchList
 
 debug = flip trace