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