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

This feature is similar to GUI's implementation.

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

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