Add debugging for shielded decode

src/ZGoBackend.hs

@@ -1879,6 +1879,11 @@ 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)
+          print i
           let decodedTxList =
                 map
                   (decodeSaplingOutput (bytes (decodeBech32 $ E.encodeUtf8 k)))