Vergara_Tech/zenith
Vergara_Tech/zenith
2
0
Fork 0
Code Issues 24 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:57:32 -04:00
parent 5c8a611dfc
commit 165977eecf
2 changed files with 13 additions and 28 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
src/Zenith/Utils.hs
View file

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

2
zcash-haskell

@ -1 +1 @@
Subproject commit 7965dc38c48da348f503a52ee10042fffc43f32c Subproject commit 12296026a0ebb9a5afe0904b251c5d31080eab18