Vergara_Tech/zcash-haskell
2
0
Fork 0
Code Issues Pull requests Projects Releases 5 Packages Wiki Activity

Add new types for constants for Zcash protocol

Browse source
This commit is contained in:
Rene Vergara 2024-03-05 14:44:19 -06:00
parent 694ab8fd17
commit 53716685a8
Signed by: pitmutt
GPG key ID: 65122AD495A7F5B2
1 changed files with 16 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
src/ZcashHaskell/Types.hs
View file

@ -61,6 +61,22 @@ data ZcashNet
| RegTestNet | RegTestNet
deriving (Eq, Prelude.Show, Read) deriving (Eq, Prelude.Show, Read)
type AccountId = Int
-- ** Constants
-- | Types for coin types on the different networks
data CoinType
= MainNetCoin
| TestNetCoin
| RegTestNetCoin
getValue :: CoinType -> Word32
getValue c =
case c of
MainNetCoin -> 133
TestNetCoin -> 1
RegTestNetCoin -> 1
-- * RPC -- * RPC
-- | A type to model Zcash RPC calls -- | A type to model Zcash RPC calls
data RpcCall = RpcCall data RpcCall = RpcCall