rvv001 - Saving work in progress....

src/Zenith/Utils.hs

@@ -148,27 +148,12 @@ isExchangeAddressValid xa =
 
 isRecipientValidGUI :: PrivacyPolicy -> T.Text -> Bool
 isRecipientValidGUI p a  = do
-  let adr = (parseAddress a)
-  case adr of
-    Just a  ->
+  let adr = parseAddress a
   case p of
-        Full -> case a of
-                  Unified ua -> True
-                  Sapling sa -> True 
-                  _ -> False
-        Medium -> case a of
-                  Unified ua -> True
-                  Sapling sa -> True 
-                  _ -> False
-        Low -> case a of
-                  Unified ua -> True
-                  Sapling sa -> True 
-                  Transparent ta -> True
-                  Exchange ea -> True
-        None -> case a of
-                  Transparent ta -> True
-                  Exchange ea -> True
-    _ -> False
+    Full -> True
+    Medium -> True
+    Low -> False
+    None -> False   
 
 isZecAddressValid ::  T.Text -> Bool
 isZecAddressValid a = do

zcash-haskell

@@ -1 +1 @@
-Subproject commit 7965dc38c48da348f503a52ee10042fffc43f32c
+Subproject commit 12296026a0ebb9a5afe0904b251c5d31080eab18