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

RPC Server #103

Merged
pitmutt merged 129 commits from rav001 into milestone3 2024-11-21 15:30:22 +00:00
Conversation 0 Commits 129 Files changed 22 +2 -2
2 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files
Showing only changes of commit 398f4f1dcf - Show all commits

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