Fix button style

This commit is contained in:
Rene Vergara 2024-08-20 16:46:01 -05:00
parent cdd28d2184
commit 6875917ec7
Signed by: pitmutt
GPG key ID: 65122AD495A7F5B2
3 changed files with 9 additions and 6 deletions

View file

@ -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 &

View file

@ -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)

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