rvv001 - Saving work in progress....

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

View file

@ -24,7 +24,7 @@ import ZcashHaskell.Types
, TransparentAddress(..)
, UnifiedAddress(..)
, ZcashNet(..)
, ValidAddress(..)
, ValidAddress(..)
, ExchangeAddress(..)
)
import Zenith.Types
@ -126,7 +126,7 @@ isRecipientValid a = do
Nothing -> False)
isUnifiedAddressValid :: T.Text -> Bool
isUnifiedAddressValid ua =
isUnifiedAddressValid ua =
case isValidUnifiedAddress (E.encodeUtf8 ua) of
Just _a1 -> True
Nothing -> False
@ -135,41 +135,26 @@ isSaplingAddressValid :: T.Text -> Bool
isSaplingAddressValid sa = isValidShieldedAddress (E.encodeUtf8 sa)
isTransparentAddressValid :: T.Text -> Bool
isTransparentAddressValid ta =
isTransparentAddressValid ta =
case decodeTransparentAddress (E.encodeUtf8 ta) of
Just _a3 -> True
Nothing -> False
isExchangeAddressValid :: T.Text -> Bool
isExchangeAddressValid xa =
isExchangeAddressValid xa =
case decodeExchangeAddress (E.encodeUtf8 xa) of
Just _a4 -> True
Nothing -> False
Nothing -> False
isRecipientValidGUI :: PrivacyPolicy -> T.Text -> Bool
isRecipientValidGUI p a = do
let adr = (parseAddress a)
case adr of
Just a ->
case p of
Full -> case a of
Unified ua -> True
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
let adr = parseAddress a
case p of
Full -> True
Medium -> True
Low -> False
None -> False
isZecAddressValid :: T.Text -> Bool
isZecAddressValid a = do
case isValidUnifiedAddress (E.encodeUtf8 a) of

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