rvv001 - Saving Work in progress...
This commit is contained in:
parent
6255ea3142
commit
5c8a611dfc
1 changed files with 12 additions and 11 deletions
|
@ -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
|
||||
|
||||
|
|
Loading…
Reference in a new issue