From 5c8a611dfc274fe102c5bbf6a256d287e4425e83 Mon Sep 17 00:00:00 2001 From: "Rene Vergara A." Date: Sun, 29 Sep 2024 20:43:12 -0400 Subject: [PATCH] rvv001 - Saving Work in progress... --- src/Zenith/Utils.hs | 23 ++++++++++++----------- 1 file changed, 12 insertions(+), 11 deletions(-) diff --git a/src/Zenith/Utils.hs b/src/Zenith/Utils.hs index ad700ce..e5b54c3 100644 --- a/src/Zenith/Utils.hs +++ b/src/Zenith/Utils.hs @@ -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