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