Add `Read` implementations

This commit is contained in:
Rene Vergara 2024-02-09 13:24:34 -06:00
parent c91e23ab9c
commit 88a5189eba
Signed by: pitmutt
GPG Key ID: 65122AD495A7F5B2
2 changed files with 6 additions and 6 deletions

View File

@ -123,27 +123,27 @@ data RawTxResponse = RawTxResponse
, rt_blockheight :: Integer , rt_blockheight :: Integer
, rt_confirmations :: Integer , rt_confirmations :: Integer
, rt_blocktime :: Integer , rt_blocktime :: Integer
} deriving (Prelude.Show, Eq) } deriving (Prelude.Show, Eq, Read)
data ZcashNet data ZcashNet
= MainNet = MainNet
| TestNet | TestNet
| RegTestNet | RegTestNet
deriving (Eq, Prelude.Show) deriving (Eq, Prelude.Show, Read)
-- * Transparent -- * Transparent
-- | Type to represent the two kinds of transparent addresses -- | Type to represent the two kinds of transparent addresses
data TransparentType data TransparentType
= P2SH = P2SH
| P2PKH | P2PKH
deriving (Eq, Prelude.Show) deriving (Eq, Prelude.Show, Read)
-- | Type to represent a transparent Zcash addresses -- | Type to represent a transparent Zcash addresses
data TransparentAddress = TransparentAddress data TransparentAddress = TransparentAddress
{ ta_type :: !TransparentType { ta_type :: !TransparentType
, ta_net :: !ZcashNet , ta_net :: !ZcashNet
, ta_bytes :: !BS.ByteString , ta_bytes :: !BS.ByteString
} deriving (Eq, Prelude.Show) } deriving (Eq, Prelude.Show, Read)
-- * Sapling -- * Sapling
-- | Type to represent a Sapling Shielded Output as provided by the @getrawtransaction@ RPC method of @zcashd@. -- | Type to represent a Sapling Shielded Output as provided by the @getrawtransaction@ RPC method of @zcashd@.
@ -212,7 +212,7 @@ data OrchardAction = OrchardAction
, out_ciphertext :: HexString -- ^ A ciphertext enabling the sender to recover the output note , out_ciphertext :: HexString -- ^ A ciphertext enabling the sender to recover the output note
, cv :: HexString -- ^ A value commitment to the net value of the input note minus the output note , cv :: HexString -- ^ A value commitment to the net value of the input note minus the output note
, auth :: HexString -- ^ A signature authorizing the spend in this Action , auth :: HexString -- ^ A signature authorizing the spend in this Action
} deriving stock (Eq, Prelude.Show, GHC.Generic) } deriving stock (Eq, Prelude.Show, GHC.Generic, Read)
deriving anyclass (SOP.Generic, SOP.HasDatatypeInfo) deriving anyclass (SOP.Generic, SOP.HasDatatypeInfo)
deriving anyclass (Data.Structured.Show) deriving anyclass (Data.Structured.Show)
deriving (BorshSize, ToBorsh, FromBorsh) via AsStruct OrchardAction deriving (BorshSize, ToBorsh, FromBorsh) via AsStruct OrchardAction

View File

@ -41,7 +41,7 @@ extra-deps:
- git: https://github.com/well-typed/borsh.git - git: https://github.com/well-typed/borsh.git
commit: d2fcfa159e0a844b1ec5e8ed3e232d4b380fa831 commit: d2fcfa159e0a844b1ec5e8ed3e232d4b380fa831
- git: https://git.vergara.tech/Vergara_Tech/haskell-hexstring.git - git: https://git.vergara.tech/Vergara_Tech/haskell-hexstring.git
commit: fe2df6f7d63272ac147911c1573550bed1d38a37 commit: fd1ddce73c0ad18a2a4509a299c6e93f8c6c383d
- vector-0.13.0.0@sha256:fa5cac81a17a5af388716792e8b99c24b3b66770086756d0d8b23f8272a0244c,9112 - vector-0.13.0.0@sha256:fa5cac81a17a5af388716792e8b99c24b3b66770086756d0d8b23f8272a0244c,9112
- aeson-2.1.2.1@sha256:f10f3c661bd5cf57aee46b94420e47736240b8e209ac15f4bfc1a4e4d55831fa,6344 - aeson-2.1.2.1@sha256:f10f3c661bd5cf57aee46b94420e47736240b8e209ac15f4bfc1a4e4d55831fa,6344
- generically-0.1.1 - generically-0.1.1