rvv001 - Saving Work in progress...

src/Zenith/Utils.hs

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