src/Zenith/GUI/Theme.hs

@@ -49,6 +49,9 @@ zenithTheme =
   L.active .
   L.btnStyle . L.text ?~
   baseTextStyle &
+  L.disabled .
+  L.btnStyle . L.text ?~
+  baseTextStyle &
   L.basic .
   L.btnMainStyle . L.text ?~
   hiliteTextStyle &

src/Zenith/Utils.hs

@@ -9,8 +9,8 @@ import Data.Ord (clamp)
 import Data.Scientific (Scientific(..), scientific)
 import qualified Data.Text as T
 import qualified Data.Text.Encoding as E
-import System.Process (createProcess_, shell)
 import System.Directory
+import System.Process (createProcess_, shell)
 import Text.Regex.Posix
 import ZcashHaskell.Orchard (encodeUnifiedAddress, isValidUnifiedAddress)
 import ZcashHaskell.Sapling (decodeSaplingAddress, isValidShieldedAddress)
@@ -86,7 +86,7 @@ validateAddress txt --(tReg || sReg && isJust chk) || (uReg && isJust chk)
 
 -- | Return True if Address is valid
 validateAddressBool :: T.Text -> Bool
-validateAddressBool a = do 
+validateAddressBool a = do
   case (validateAddress a) of
     Nothing -> False
     _ -> True
@@ -100,9 +100,9 @@ copyAddress a =
 
 -- | Get current user and build zenith path
 getZenithPath :: IO String
-getZenithPath = do 
+getZenithPath = do
   homeDirectory <- getHomeDirectory
-  return  (homeDirectory ++ "/Zenith/")
+  return (homeDirectory ++ "/Zenith/")
 
 -- | Bound a value to the 0..1 range, used for progress reporting on UIs
 validBarValue :: Float -> Float
@@ -117,7 +117,7 @@ isRecipientValid a =
       (case decodeTransparentAddress (E.encodeUtf8 a) of
          Just _a3 -> True
          Nothing ->
-           case decodeExchangeAddress a of
+           case decodeExchangeAddress (E.encodeUtf8 a) of
              Just _a4 -> True
              Nothing -> False)
 

zcash-haskell

@@ -1 +1 @@
-Subproject commit e8074419cfb54559a4c09731ad2448d5930869a2
+Subproject commit 0b2fae2b5db6878b7669d639a5cb8c73b986906e