Vergara_Tech/zenith
Vergara_Tech/zenith
2
0
Fork 0
Code Issues 32 Pull requests 1 Projects Releases 6 Packages Wiki Activity

Publish Zenith beta version #80

Merged
pitmutt merged 90 commits from dev041 into master 2024-05-09 19:15:41 +00:00
Conversation 0 Commits 90 Files changed 28 +4 -6
1 changed files with 4 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files
Showing only changes of commit dabd149df2 - Show all commits

10
src/Zenith.hs
View file

@ -28,10 +28,6 @@ import qualified Data.Text.IO as TIO
import qualified Data.Vector as V import qualified Data.Vector as V
import Data.Word import Data.Word
import GHC.Generics import GHC.Generics
import ZcashHaskell.Orchard (isValidUnifiedAddress)
import ZcashHaskell.Sapling (isValidShieldedAddress)
{-import Haskoin.Address.Bech32-}
import Network.HTTP.Simple import Network.HTTP.Simple
import Network.HTTP.Types import Network.HTTP.Types
import Numeric import Numeric
@ -43,6 +39,8 @@ import Text.Read (readMaybe)
import Text.Regex import Text.Regex
import Text.Regex.Base import Text.Regex.Base
import Text.Regex.Posix import Text.Regex.Posix
import ZcashHaskell.Orchard (isValidUnifiedAddress)
import ZcashHaskell.Sapling (isValidShieldedAddress)
-- | A type to model Zcash RPC calls -- | A type to model Zcash RPC calls
data RpcCall = RpcCall data RpcCall = RpcCall
@ -153,8 +151,8 @@ instance FromJSON AddressGroup where
case c of case c of
Nothing -> return [] Nothing -> return []
Just x -> do Just x -> do
x' <- x .: "addresses" x' <- x .:? "addresses"
return $ map (ZcashAddress s1 [Transparent] Nothing) x' return $ maybe [] (map (ZcashAddress s1 [Transparent] Nothing)) x'
processSapling k s2 = processSapling k s2 =
case k of case k of
Nothing -> return [] Nothing -> return []