Vergara_Tech/zenith
Vergara_Tech/zenith
2
0
Fork 0
Code Issues 21 Pull requests Projects Releases 6 Packages Wiki Activity

rvv001 - Saving Work in progress...

Browse source
This commit is contained in:
Rene V. Vergara A. 2024-09-29 20:43:12 -04:00
parent 6255ea3142
commit 5c8a611dfc
1 changed files with 12 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
src/Zenith/Utils.hs
View file

@ -148,24 +148,25 @@ isExchangeAddressValid xa =
isRecipientValidGUI :: PrivacyPolicy -> T.Text -> Bool
isRecipientValidGUI p a = do
case (parseAddress a) of
Just a1 ->
let adr = (parseAddress a)
case adr of
Just a ->
case p of
Full -> case a1 of
Full -> case a of
Unified ua -> True
ZcashHaskell.Types.Sapling sa -> True
Sapling sa -> True
_ -> False
Medium -> case a1 of
Medium -> case a of
Unified ua -> True
ZcashHaskell.Types.Sapling sa -> True
Sapling sa -> True
_ -> False
Low -> case a1 of
Low -> case a of
Unified ua -> True
ZcashHaskell.Types.Sapling sa -> True
ZcashHaskell.Types.Transparent ta -> True
Sapling sa -> True
Transparent ta -> True
Exchange ea -> True
None -> case a1 of
ZcashHaskell.Types.Transparent ta -> True
None -> case a of
Transparent ta -> True
Exchange ea -> True
_ -> False