Vergara_Tech/zenith
Vergara_Tech/zenith
2
0
Fork 0
Code Issues 24 Pull requests Projects Releases 6 Packages Wiki Activity

rvv001 - Privacy Policy control addedin TUI's send transaction form

Browse source 
This feature is similar to GUI's implementation.
This commit is contained in:
Rene V. Vergara A. 2024-10-01 20:47:45 -04:00
parent b6b586f9bf
commit 398f4f1dcf
2 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/Zenith/CLI.hs
View file

@ -107,6 +107,7 @@ import Zenith.Utils
( displayTaz ( displayTaz
, displayZec , displayZec
, isRecipientValid , isRecipientValid
, isRecipientValidGUI
, jsonNumber , jsonNumber
, parseAddressUA , parseAddressUA
, showAddress , showAddress
@ -1132,7 +1133,7 @@ appEvent (BT.VtyEvent e) = do
fs <- BT.gets formState fs <- BT.gets formState
BT.modify $ BT.modify $
setFieldValid setFieldValid
(isRecipientValid (fs ^. sendTo)) (isRecipientValidGUI (fs ^. policyField) (fs ^. sendTo))
RecField RecField
AdrBook -> do AdrBook -> do
case e of case e of

1
src/Zenith/Utils.hs
View file

@ -173,7 +173,6 @@ isRecipientValidGUI p a = do
Exchange ea -> True Exchange ea -> True
_ -> False _ -> False
Nothing -> False Nothing -> False
None -> case adr of None -> case adr of
Just a -> Just a ->
case a of case a of