rvv001 - Saving Work in progress...

This commit is contained in:
Rene V. Vergara A. 2024-09-29 20:43:12 -04:00
parent 6255ea3142
commit 5c8a611dfc

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