Merge pull request 'Implement `Read` instance' (#7) from fix080 into dev040

Reviewed-on: #7

CHANGELOG.md

@@ -11,6 +11,11 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0
 
 - Function to encode a human-readable transparent address
 - Function to generate a seed phrase
+- Implementations of `Read` for types
+
+### Changed
+
+
 
 ## [0.3.0]
 

src/ZcashHaskell/Keys.hs

@@ -27,7 +27,7 @@ import ZcashHaskell.Types (Phrase, Seed)
 generateWalletSeedPhrase :: IO Phrase
 generateWalletSeedPhrase = withBorshVarBuffer rustWrapperGenSeedPhrase
 
--- | Get 
+-- | Derive a cryptographic seed from the given seed phrase.
 getWalletSeed :: Phrase -> Maybe Seed
 getWalletSeed p =
   if BS.length result > 0

src/ZcashHaskell/Types.hs

@@ -123,27 +123,27 @@ data RawTxResponse = RawTxResponse
   , rt_blockheight :: Integer
   , rt_confirmations :: Integer
   , rt_blocktime :: Integer
-  } deriving (Prelude.Show, Eq)
+  } deriving (Prelude.Show, Eq, Read)
 
 data ZcashNet
   = MainNet
   | TestNet
   | RegTestNet
-  deriving (Eq, Prelude.Show)
+  deriving (Eq, Prelude.Show, Read)
 
 -- * Transparent
 -- | Type to represent the two kinds of transparent addresses
 data TransparentType
   = P2SH
   | P2PKH
-  deriving (Eq, Prelude.Show)
+  deriving (Eq, Prelude.Show, Read)
 
 -- | Type to represent a transparent Zcash addresses
 data TransparentAddress = TransparentAddress
   { ta_type :: !TransparentType
   , ta_net :: !ZcashNet
   , ta_bytes :: !BS.ByteString
-  } deriving (Eq, Prelude.Show)
+  } deriving (Eq, Prelude.Show, Read)
 
 -- * Sapling
 -- | 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
   , 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
-  } deriving stock (Eq, Prelude.Show, GHC.Generic)
+  } deriving stock (Eq, Prelude.Show, GHC.Generic, Read)
     deriving anyclass (SOP.Generic, SOP.HasDatatypeInfo)
     deriving anyclass (Data.Structured.Show)
     deriving (BorshSize, ToBorsh, FromBorsh) via AsStruct OrchardAction

stack.yaml

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