From 398f4f1dcf54c116e7cf83ef81dc05b892225c91 Mon Sep 17 00:00:00 2001 From: "Rene Vergara A." Date: Tue, 1 Oct 2024 20:47:45 -0400 Subject: [PATCH] rvv001 - Privacy Policy control addedin TUI's send transaction form This feature is similar to GUI's implementation. --- src/Zenith/CLI.hs | 3 ++- src/Zenith/Utils.hs | 1 - 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Zenith/CLI.hs b/src/Zenith/CLI.hs index f18493a..4522913 100644 --- a/src/Zenith/CLI.hs +++ b/src/Zenith/CLI.hs @@ -107,6 +107,7 @@ import Zenith.Utils ( displayTaz , displayZec , isRecipientValid + , isRecipientValidGUI , jsonNumber , parseAddressUA , showAddress @@ -1132,7 +1133,7 @@ appEvent (BT.VtyEvent e) = do fs <- BT.gets formState BT.modify $ setFieldValid - (isRecipientValid (fs ^. sendTo)) + (isRecipientValidGUI (fs ^. policyField) (fs ^. sendTo)) RecField AdrBook -> do case e of diff --git a/src/Zenith/Utils.hs b/src/Zenith/Utils.hs index c5d9395..5d1ed4d 100644 --- a/src/Zenith/Utils.hs +++ b/src/Zenith/Utils.hs @@ -173,7 +173,6 @@ isRecipientValidGUI p a = do Exchange ea -> True _ -> False Nothing -> False - None -> case adr of Just a -> case a of