From 53716685a89ab65404820eaf5ae9a08349e9961a Mon Sep 17 00:00:00 2001
From: Rene Vergara <rene@vergara.network>
Date: Tue, 5 Mar 2024 14:44:19 -0600
Subject: [PATCH] Add new types for constants for Zcash protocol

---
 src/ZcashHaskell/Types.hs | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/src/ZcashHaskell/Types.hs b/src/ZcashHaskell/Types.hs
index 356bdc4..11668d1 100644
--- a/src/ZcashHaskell/Types.hs
+++ b/src/ZcashHaskell/Types.hs
@@ -61,6 +61,22 @@ data ZcashNet
   | RegTestNet
   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
 -- | A type to model Zcash RPC calls
 data RpcCall = RpcCall