Vergara_Tech/zcash-haskell
2
0
Fork 0
Code Issues Pull requests Projects Releases 5 Packages Wiki Activity

Add new function to decode a Transparent Address in HRF #59

Merged
pitmutt merged 4 commits from rvv040 into dev040 2024-04-14 14:27:19 +00:00
Conversation 0 Commits 4 Files changed 6 +4 -4
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files
Showing only changes of commit 15b2f98f1d - Show all commits

8
src/ZcashHaskell/Transparent.hs
View file

@ -125,20 +125,20 @@ decodeTransparentAddress taddress = do
189 -> 189 ->
Just $ Just $
TransparentAddress MainNet $ TransparentAddress MainNet $
TransparentReceiver P2SH (fromRawBytes digest) TransparentReceiver P2SH (fromRawBytes transparentReceiver)
186 -> 186 ->
Just $ Just $
TransparentAddress TestNet $ TransparentAddress TestNet $
TransparentReceiver P2SH (fromRawBytes digest) TransparentReceiver P2SH (fromRawBytes transparentReceiver)
184 -> 184 ->
Just $ Just $
TransparentAddress MainNet $ TransparentAddress MainNet $
TransparentReceiver P2PKH (fromRawBytes digest) TransparentReceiver P2PKH (fromRawBytes transparentReceiver)
_ -> Nothing _ -> Nothing
29 -> 29 ->
if sb == 37 if sb == 37
then Just $ then Just $
TransparentAddress TestNet $ TransparentAddress TestNet $
TransparentReceiver P2PKH (fromRawBytes digest) TransparentReceiver P2PKH (fromRawBytes transparentReceiver)
else Nothing else Nothing
_ -> Nothing _ -> Nothing