From 15b2f98f1dc9dddbfb056a92fc5f5189cb7f72ce Mon Sep 17 00:00:00 2001 From: "Rene V. Vergara" Date: Sun, 14 Apr 2024 08:37:19 -0400 Subject: [PATCH] rvv040 - Fix transparent address decoding - Function was returning the "digest" instead the "transparentReceiver" --- src/ZcashHaskell/Transparent.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/ZcashHaskell/Transparent.hs b/src/ZcashHaskell/Transparent.hs index 6689c08..366dfe4 100644 --- a/src/ZcashHaskell/Transparent.hs +++ b/src/ZcashHaskell/Transparent.hs @@ -125,20 +125,20 @@ decodeTransparentAddress taddress = do 189 -> Just $ TransparentAddress MainNet $ - TransparentReceiver P2SH (fromRawBytes digest) + TransparentReceiver P2SH (fromRawBytes transparentReceiver) 186 -> Just $ TransparentAddress TestNet $ - TransparentReceiver P2SH (fromRawBytes digest) + TransparentReceiver P2SH (fromRawBytes transparentReceiver) 184 -> Just $ TransparentAddress MainNet $ - TransparentReceiver P2PKH (fromRawBytes digest) + TransparentReceiver P2PKH (fromRawBytes transparentReceiver) _ -> Nothing 29 -> if sb == 37 then Just $ TransparentAddress TestNet $ - TransparentReceiver P2PKH (fromRawBytes digest) + TransparentReceiver P2PKH (fromRawBytes transparentReceiver) else Nothing _ -> Nothing