Update Sapling decoding

2023-09-28 15:35:17 -05:00 · 2023-09-28 15:35:17 -05:00 · 78c8b9ef5c
commit 78c8b9ef5c
parent f0d1e933c6
1 changed files with 2 additions and 7 deletions
--- a/src/ZGoBackend.hs
+++ b/src/ZGoBackend.hs
@ -1879,17 +1879,12 @@ scanTxNative pipe db nodeUser nodePwd = do
      if isValidSaplingViewingKey (E.encodeUtf8 k)
        then do
          print "decoding Sapling tx"
-          let i =
-                concatMap
-                  rt_shieldedOutputs
-                  (filter (\y -> rt_shieldedOutputs y /= []) txList)
+          let i = concatMap rt_shieldedOutputs txList
          print i
          let decodedTxList =
                map
                  (decodeSaplingOutput (bytes (decodeBech32 $ E.encodeUtf8 k)))
-                  (concatMap
-                     rt_shieldedOutputs
-                     (filter (\x -> rt_shieldedOutputs x /= []) txList))
+                  (concatMap rt_shieldedOutputs txList)
          print decodedTxList
        else do
          let vk = decodeUfvk $ E.encodeUtf8 k